Schleife !?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$B$5" Then
Range("B5").Formula = "=Vlookup(B4,$B$60:$C$75,2)"
Else:
End If

End Sub

Doch wie mache ich das nun dass ich für eingabe in C5 (D5, E5... fortlaufend) dann je die dazu passende formel ausführt, also
für C5 zb:
Range("C5").Formula = "=Vlookup(C4,$B$60:$C$75,2)"

Wie kann ich da ne schleife machen oder so???

Danke für Hilfe!!!
MfG Ichselbst2