How do I get the following to loop until the end of a sheet with up to 200
entries in column A starting at row 3 and changing the range as it goes
through the loop. I'm new to this and any help much appreciated.

Sub test()

Dim i, j As Integer
Dim INS As String

i = 0: j -0

If ActiveSheet.Range("j3").Value < Empty Then i = i + 1: j = 1
If ActiveSheet.Range("k3").Value < Empty Then i = i - 1
If ActiveSheet.Range("l3").Value < Empty Then i = i + 1: j = 1
If ActiveSheet.Range("m3").Value < Empty Then i = 1 - 1

If j = 0 Then INS = ("N"): GoTo E
If i = 0 Then INS = ("C"): GoTo E
If i 0 Then INS = ("A")

E:
ActiveSheet.Range("n3") = INS

End Sub