Help with macro moving cells from sheet to sheet

mericlee Your code looks fine, with the exception of the second to last line...

'Original code:
    targetSheet.Cells(lastRow, 1).PasteSpecial Paste:=xlPasteValues

'Should be "nextRow" (lastRow + 1) and column "AJ":
    targetSheet.Cells(lastRow + 1, "AJ").PasteSpecial Paste:=xlPasteValues

'Or, use the column number (36):
    targetSheet.Cells(lastRow + 1, 36).PasteSpecial Paste:=xlPasteValues

Having said that, I'm wondering why you expected the target range to be column AJ row 4? If the results were output to a row in the 900's, it's because the "lastRow" with data in column AJ was found in the 900's. If that's not what you expected, check column AJ and clear any unwanted data first.

Also, in the interest of "best practices", I would recommend avoiding the Copy, PasteSpecial and CutCopyMode methods by assigning the source values directly to the output range as follows:

Option Explicit

Sub CopyDataToAnotherSheet()

'Load the source data to an array
    Dim wsSource As Worksheet, data As Variant
    Set wsSource = Sheets("CIPs")
    data = wsSource.Range("U23:Y38").Value

'Find the next available row on the output worksheet
    Dim wsOutput As Worksheet, rowId As Long
    Set wsOutput = Sheets("CIP 2024")
    rowId = wsOutput.Cells(wsOutput.Rows.Count, 36).End(xlUp).Row + 1

'Write the array to the output range
    wsOutput.Cells(rowId, 36).Resize(UBound(data, 1), UBound(data, 2)).Value = data

End Sub