"destination:= range ("B5")" B5 =variabel(suchen)

ich hab hier ein makro das die aktive zelle und die links oder rechts daneben kopiert, in "B5" einfügt und die ursprüngliche zelle löscht.
ich möchte allerdings dass die daten anstelle von "B5" in die letzte zelle in einer gesuchten spalte (suchen in zeile nach 1)
kopiert wird.
sieht bissher so aus:

If ActiveCell.EntireColumn.Cells(1, 1) = "Auftr. Nr.:" Then
Range(ActiveCell, ActiveCell.Offset(0, -1)).Copy
Else
Range(ActiveCell, ActiveCell.Offset(0, 1)).Copy
End If
ActiveSheet.Paste destination:=Range("B5")
If ActiveCell.EntireColumn.Cells(1, 1) = "Auftr. Nr.:" Then
Range(ActiveCell, ActiveCell.Offset(0, -1)).Select
Else
Range(ActiveCell, ActiveCell.Offset(0, 1)).Select
End If
Selection.Delete Shift:=xlUp
End Sub

ich hoffe mir kann jemand weiter helfen.
gruß
andi