Formel einfügen

ich möchte ein Makro schreiben, dass mir in die Spalte C, von Zeile C4 bis zur letzten ausgefüllten Zeille, eine Formel einfügt. Aber irgendwie läuft mein Makro nicht:

Dim spal1 As String
Dim spal2 As String
Dim spalte As String
Range("C4").Select
spal1 = Range("C4").Offset(0, 0).Address
spal2 = Range("C65536").End(xlUp).Offset(0, 0).Address
spalte = spal1 & ":" & spal2
Range(spalte).Select
Selection.FormulaLocal = "=IF(RC[-1]<>"""",3,"""")"

Danke für Eure Hilfe
Gruß
Katrin