Re: $$Excel-Macros$$ Need to find the second to final row in order to copy detail lines

Try this see if it helps Sub A() ThisWorkbook.Worksheets("Sheet2").Select Dim LastRowTotal As Integer Dim LastRowData As Integer LastRowTotal = Range("B65536").End(xlUp).Row LastRowData = LastRowTotal - 1 ThisWorkbook.Worksheets("Sheet2").Select Range(Cells(2, 1), Cells(LastRowD

$$Excel-Macros$$ Need to find the second to final row in order to copy detail lines

This macro works fine for copying and pasting totals: Sub Copy_Paste_Totals() ThisWorkbook.Worksheets("Sheet2").Select Dim LastRowTotal As Integer ThisWorkbook.Worksheets("Sheet2").Select LastRowTotal = Range("B65536").End(xlUp).Row ThisWorkbook.Worksheets("Sheet2").Select