finding the first empty cell in column a then populate subsequent cells in column a

[GS7CLW]

I had this working and I must have accidentaly changed something I should not have. I am simply finding the first empty cell in column A and populating the subsequent cells (in column A) with acronym explanations:

Sub Add_Acronyms()
Dim BlankCell
Range("A1").Select
For A = 1 To 100
If ActiveCell.Value = Empty Then
BlankCell = "A" & CStr(A - 1)
Else
Range("A" & CStr(A + 3)).Select
ActiveCell.Value = "ACE - American Council on Education"
Range("A" & CStr(A + 4)).Select
ActiveCell.Value = "ADHQ - Online Questionnaire"
Range("A" & CStr(A + 5)).Select
ActiveCell.Value = "AITI -"
Range("A" & CStr(A + 6)).Select
ActiveCell.Value = "APLREF - Applicant Referral Program"
Exit Sub
End If
Next A
End Sub

yes I was bad and deleted SOMETHING;>((

hope everyone is having a great day...it's hump day;>))
cliff

 

[Joe4]

Here is a little script that selects the first blank cell in Column A. Does this help?

'   Select first blank cell in column A
    If Len(Range("A1")) = 0 Then
        Range("A1").Select
    Else
        If Len(Range("A2")) = 0 Then
            Range("A2").Select
        Else
            Range("A1").End(xlDown).Offset(1, 0).Select
        End If
    End If

 

[GS7CLW]

works great!
THANKS!