Excel - Macro que al re ejecutarse anote en una celda más abajo que la anterior vez

Dim UltLinea As Long

UltLinea = Range("F" & Rows.Count).End(xlUp).Row +1

Private Sub Prueba1()

    Dim UltLinea As Long

    UltLinea = Range("F" & Rows.Count).End(xlUp).Row

    If UltLinea = 1 Then

        If Not IsEmpty(Range("F" & UltLinea)) Then

            UltLinea = UltLinea + 1

        End If

    Else

        UltLinea = UltLinea + 1

    End If

    Range("F" & UltLinea).Value = Range("A1").Value

End Sub

'Este codigo va en el codigo de ThisWorkbook

Public Posicion As Long

Private Sub Workbook_Open()

    Posicion = 10 'Aqui iniciamos la posicion inicial a la deseada

End Sub

'Este codigo va en la hoja donde se quiera usar

Private Sub Prueba2()

    Range("F" & ThisWorkbook.Posicion).Value = Range("A1").Value

    ThisWorkbook.Posicion = ThisWorkbook.Posicion + 1

End Sub

Private Sub Prueba3()

    Static p As Long

    If p = 0 Then

        p = 10 'Aqui se pone donde se quiere que empiece

    End If

    Range("F" & p).Value = Range("A1").Value

    p = p + 1

End Sub