rockybalboa
11-19-2014, 02:31 AM
Hi,
I am getting this error in the last line. Please help.
wb.Sheets("Final report").Range(Selection, Selection.End(xlDown)).Select
Row4 = wb.Sheets("Final report").Range(Selection, Selection.End(xlDown)).Rows.Count
Selection.Copy
wb.Sheets("Template").Select
Selection.PasteSpecial Paste:=xlPasteValues
wb.Sheets("Final report").Select
ActiveCell.Offset(0, 2).Select
Range(ActiveCell, Cells(ActiveCell.Row + Row4, ActiveCell.Column)).Copy
Thanks
I am getting this error in the last line. Please help.
wb.Sheets("Final report").Range(Selection, Selection.End(xlDown)).Select
Row4 = wb.Sheets("Final report").Range(Selection, Selection.End(xlDown)).Rows.Count
Selection.Copy
wb.Sheets("Template").Select
Selection.PasteSpecial Paste:=xlPasteValues
wb.Sheets("Final report").Select
ActiveCell.Offset(0, 2).Select
Range(ActiveCell, Cells(ActiveCell.Row + Row4, ActiveCell.Column)).Copy
Thanks