Как задать адрес ячейке переменной оператора цикла и сторонней переменной?

Private Sub CommandButton4_Click()
Dim ad As Variant
If Not Range("Лист3!C1:J2").Find(dis) Is Nothing Then
For i = 1 To 5000
  If IsEmpty(Worksheets(Лист3).Range(" ad :" & i)) = True Then
    Range("Лист3!ad" & i) = name
    Exit For
End If
Next i
End If
End Sub

If IsEmpty(Worksheets(Лист3).(Range(ad & i)))  Then

If IsEmpty(Worksheets(Лист3).(Range("AD" & i)))  Then

If IsEmpty(Worksheets(Лист3).(Cells(ad & i)))  Then

Private Sub CommandButton4_Click()
Dim dis, name As Variant
Dim ad As Long
dis = TextBox1.Text
name = TextBox2.Text
ad = Range("Лист3!C1:J2").Find(dis).Column
If Not Range("Лист3!B1:B100").Find(dis) Is Nothing Then
For i = 1 To 5000
  If IsEmpty(Range("Лист4!E" & i)) = True Then
    Range("Лист4!E" & i) = dis
    Exit For
  End If
   Next i
   Else
   For i = 1 To 5000
  If IsEmpty(Range("Лист3!B" & i)) = True Then
    Range("Лист3!B" & i) = dis
    Exit For
  End If
   Next i
   For i = 1 To 5000
  If IsEmpty(Range("Лист4!E" & i)) = True Then
    Range("Лист4!E" & i) = dis
    Exit For
  End If
   Next i
  End If
If Not Range("Лист3!C1:J2").Find(dis) Is Nothing Then
For i = 1 To 5000
  If IsEmpty(Worksheets(Лист3).Cells(ad & i)) Then
    Worksheets(Лист3).Range(ad & i) = name
    Exit For
End If
Next i
End If
End Sub

Worksheets(Лист3).CELLS(i, "ad") = name