Need Macro for last filled row

[akash.scap]

Hello, have information filled out in rows and columns from A4:k15
Information is usually filled row by row (going horizontally)
Basically i need a macro where it can select the last filled row
and copy it over to the sheet2 row 1 (should paste sheet2 row 1 every time)

Please help

 

[VoG]

Hi. Try

Sub test()
Range("A" & Rows.Count).End(xlUp).EntireRow.Copy Destination:=Sheets("Sheet2").Range("A1")
End Sub

 

[stefankemp]

sub findpaste()
dim lastrow as long
dim col as long

with sheet1
for col = 1 to 11
if .cells(.rows.count,col).end(xlup).row > lastrow then
lastrow = .cells(.rows.count,col).end(xlup).row
end if
next col
end with

sheet2.range("A1:K1").value = sheet1.range(sheet1.cells(lastrow,1),sheet.cells _
(lastrow,11)).value

end sub

 

[akash.scap]

Hello...thank you soo much works fine..

 

[akash.scap]

One more question...

the information i have filled out is between A4 to K15 (sheet1) and keeps growing.

My limit row A40 (sheet1)

Is there was way for macro to only search A4 to A40 and then copy the last filled row in that range and then move to sheet 2 row1...basically it shouldn't pass A40 as i have other data underneath A40 on sheet 1

 

[VoG]

Try

Sub test()
Dim LR As Long
LR = WorksheetFunction.Min(40, Range("A" & Rows.Count).End(xlUp).Row)
Rows(LR).Copy Destination:=Sheets("Sheet2").Range("A1")
End Sub

 

[akash.scap]

hey thank you..so much this works fine.