Need a macro to Copy Cell in Sheet1 to the next empty cell in Column A, Sheet2

Need a macro that copies cell AF6 in Sheet1
Then pastes it into the next empty cell in Column A, in sheet 2

Or if there is another way of doing this, please post. I am a newbie at this Excel stuff

Here is the file: Bingo.xlsm
Thanks

If the column of data has no missing data, below will take you to the bottom of the column:
END DOWN ARROW
DOWN ARROW

Try this macro:

Sub Macro1()
    Sheets("Sheet1").Select
    Application.Goto Reference:="R6C32"
    Selection.Copy
    Sheets("Sheet2").Select
    Application.Goto Reference:="R1C1"
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
End Sub

Try

Sub copy_AF6()
    Dim wsSrc   As Worksheet
    Dim wsDest  As Worksheet
    Dim Rng     As Range
    Dim LR      As Long
    
    Set wsSrc = Sheets("Sheet1")
    Set wsDest = Sheets("Sheet2")
    Set Rng = wsSrc.Range("AF6")
    
    LR = wsDest.Range("A" & Rows.Count).End(xlUp).Row + 1
    
    Rng.Copy
    wsDest.Range("A" & LR).PasteSpecial xlPasteValues
    
    Application.CutCopyMode = False
End Sub

Try this:
Sub Macro3()

Sheets("Sheet1").Select
Application.Goto Reference:="R6C32"
Selection.Copy
Sheets("Sheet2").Select
Application.Goto Reference:="R1C1"
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

It works for me

You are very welcome and thanks for the feedback