Cleanup (addendum) - looking to clean this up

Similar to an earlier post, other priorities came up, now looking to resolve this issue again.
Thanks for the assistance

Sub Get_Data_For_Copy()
       
    Cells.Find(What:="#Last_Row", After:=ActiveCell, LookIn:=xlComments, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate (Result is A36061 need to subtract 1 row - (value should be A36060))
    
Cells.Find(What:="#Last_Col", After:=ActiveCell, LookIn:=xlComments, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate (Result is CQ1 need to subtract 1 column - (value should be CP1))
)

    Range("A5:CP36060").Select    (Always will start from A5(Value here should be from above finds -1 (CP36060))
    Range("A36060").Activate
    Selection.Copy
End Sub