Hilfe bei VBA Daten in Monatstabelle übernehmen

Sub WerteEintragen()
Set Sh = Worksheets("TMP")
intRow = 3
Do Until IsEmpty(Sh.Cells(intRow, 1))
'***Nr suchen
Set GesNr = Sh.Rows(2).Find(Cells(intRow, 1), LookIn:=xlFormulas, Lookat:=xlWhole)
If Not GesNr Is Nothing Then
FStelleDat = GesNr.Address
Nr = GesNr.Column
End If
'***Belegung vom
Set GesBelVon = Sh.Columns(12).Find(Cells(intRow, 5), LookIn:=xlFormulas, Lookat:=xlWhole)
If Not GesBelVon Is Nothing Then
FStelleDat = GesBelVon.Address
VonBel = GesBelVon.Row
End If
'***Belegung bis
Set GesBelBis = Sh.Columns(12).Find(Cells(intRow, 6), LookIn:=xlFormulas, Lookat:=xlWhole)
If Not GesBelBis Is Nothing Then
FStelleDat = GesBelBis.Address
BisBel = GesBelBis.Row
End If
'****************in Zielbereich eintragen*******************
For i = VonBel To BisBel
Sh.Cells(i, Nr) = Sh.Cells(intRow, 3).Value
Next i
intRow = intRow + 1
Loop
End Sub