Hey all
I'm trying to write a macro to update a sheet with new entries from another sheet. The loop I am trying to use to select the first empty cell from the top of the updated sheet crashes or doesn't stop looping when I run it. I have tried using While...Wend, If...Then, and For...Next. I have also tried incorporating a Goto: statement into it. Can anybody tell me what I am doing wrong here?

    ActiveWorkbook.Save
    Dim name As String
    name = ActiveSheet.name
    Worksheets("Overview").Range("A2").Activate
A:
    If (ActiveCell.HasFormula = True) Then
    Dim row As String
    row = ActiveCell.row
    row = row + 1
    Dim Cell As String
    Cell = "A" & row
    Worksheets("Overview").Range(Cell).Activate
    ElseIf (ActiveCell.HasFormula = False) Then
    GoTo A
    Else
    End If