thomsonreuters
New Member
- Joined
- Dec 9, 2017
- Messages
- 26
Hi,
data present in sheet3
i want to copy ranges AF5 to AJ7 and paste into sheet6 at cell(2,5), like wise copy AL5 to AJ5 and No need copy from AR5 to AV5 since no data available.
All the data should be pasted under each paste.
i have attached the image..
Copy should be till last row based on AJ, AP and AV
i am using below codes, problem is cant copy if data present in one row or empty, it required data should present latest two rows in AJ, AP and AV (where i gave reference).
plese anyone help on this..its very urgent....advance Thanks for helping on this
Sheets("sheet3").Activate
N = Cells(5, 36).End(xlDown).Row
Range("AF5:AJ" & N).Select
Selection.Copy
Sheets("sheet6").Activate
With Sheets("Sheet6").Range("A" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial xlPasteValues
End With
Sheets("sheet3").Activate
N = Cells(5, 42).End(xlDown).Row
Range("AL5:AP" & N).Select
Selection.Copy
Sheets("sheet6").Activate
With Sheets("Sheet6").Range("A" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial xlPasteValues
End With
'CHMH4
Sheets("sheet3").Activate
N = Cells(5, 48).End(xlDown).Row
Range("AR5:AV" & N).Select
Selection.Copy
Sheets("sheet6").Activate
With Sheets("Sheet6").Range("A" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial xlPasteValues
End With
data present in sheet3
i want to copy ranges AF5 to AJ7 and paste into sheet6 at cell(2,5), like wise copy AL5 to AJ5 and No need copy from AR5 to AV5 since no data available.
All the data should be pasted under each paste.
i have attached the image..
Copy should be till last row based on AJ, AP and AV
i am using below codes, problem is cant copy if data present in one row or empty, it required data should present latest two rows in AJ, AP and AV (where i gave reference).
plese anyone help on this..its very urgent....advance Thanks for helping on this
Sheets("sheet3").Activate
N = Cells(5, 36).End(xlDown).Row
Range("AF5:AJ" & N).Select
Selection.Copy
Sheets("sheet6").Activate
With Sheets("Sheet6").Range("A" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial xlPasteValues
End With
Sheets("sheet3").Activate
N = Cells(5, 42).End(xlDown).Row
Range("AL5:AP" & N).Select
Selection.Copy
Sheets("sheet6").Activate
With Sheets("Sheet6").Range("A" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial xlPasteValues
End With
'CHMH4
Sheets("sheet3").Activate
N = Cells(5, 48).End(xlDown).Row
Range("AR5:AV" & N).Select
Selection.Copy
Sheets("sheet6").Activate
With Sheets("Sheet6").Range("A" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial xlPasteValues
End With