IsEmpty(destination.Range

[Rubber Beaked Woodpecker]

The following code works very well. However if I change If IsEmpty(destination.Range("X5")) Then to If IsEmpty(destination.Range("AA5")) Then the macro pastes in column A1.

What am I doing wrong please as I would like the macro to paste in column AA the first time it is run.
TIA

Sub logBalance()
  
Dim source As Worksheet
Dim destination As Worksheet
Dim emptyColumn As Long

Set source = Sheets("Sheet1")
Set destination = Sheets("Sheet1")

source.Range("o5:o16").Copy

emptyColumn = destination.Cells(5, destination.Columns.Count).End(xlToLeft).Column

If IsEmpty(destination.Range("X5")) Then
    destination.Cells(1, 1).PasteSpecial Transpose:=True
    Range("S1").Select
    Application.CutCopyMode = False
  
Else
    emptyColumn = emptyColumn + 1
    destination.Cells(5, emptyColumn).PasteSpecial Transpose:=False
    Application.CutCopyMode = False
   
End If

  
End Sub

 

[gordsky]

If IsEmpty(destination.Range("X5")) Then
    destination.Cells(1, 1).PasteSpecial Transpose:=True
    Range("S1").Select
    Application.CutCopyMode = False

with the above from your code if you simply change "X5" to "AA5" the only thing that will change is the cell that it will check is empty.
In order to change the paste location you need to change the

    destination.Cells(1, 1).PasteSpecial Transpose:=True

cells(1,1) refers to row1 column1 or "A1". so you will need to change it to where ever you want the paste to occur