need a macro

[JasonLeVan]

I am looking for a macro to go to the first empty cell in column A and type "K"

 

[VoG]

Sub TypeK()
Range("A" & Rows.Count).End(xlUp).Offset(1).Value = "K"
End Sub

 

[Trevor G]

You can use something like a loop

Sub Check1()
Range("A1").Select
Do until activecell.value=""
Activecell.Offset(1,0).select
Loop
Activecell.value="K"
End Sub