last filled in cell of column A

[AjayMishra]

Find last filled in cell of column A, select columns A to G and paste in row 1?

 

[Kerryx]

Paste in row 1 where? , is it in a new workbook or new sheet?

 

[Joe4]

Welcome to the Board!

Finding the last populated cell in column A and copying that row from columns A-G can be done like this:

    Dim lr As Long
    
'   Find last row in column A with data
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Copy columns A-G from last row
    Range(Cells(lr, "A"), Cells(lr, "G")).Copy

You didn't say on which sheet you wanted to paste it (as Kerryx pointed out already).
But the paste part should be pretty trivial. Just select the sheet and first cell you want to paste it to, and then add in an:

Activesheet.Paste

command.