Hallo

dummer Fehler im 1. Versuch. Dann bitte so probieren.  Mit diesem Code bekomme ich SourceCol bei mir als Range hin!

Set rng1 = ow.Cells.Find("[1]", LookIn:=xlValues)
'Fehler abfangen wenn "[1]" NICHT gefunden wird!!
If rng1 Is Nothing Then MsgBox "[1] nicht gefunden!": Exit Sub

Set SourceCol = rng1.Offset(0, -2)
LastRow = ow.Cells(ow.Rows.Count, SourceCol.Column).End(xlUp).Row

Set SourceCol = SourceCol.Resize(LastRow - rng1.Row, 1)
SourceCol.AutoFill Destination:=TargetCol, Type:=xlFillDefault

mfg Nobody