Sub CopyRows()
Dim sourceSheet As Worksheet
Dim destSheet As Worksheet
Dim lastRow As Long
Dim startCell As Range
Dim endCell As Range
Dim destCell As Range
Static n As Double, m As Double
Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
Set destSheet = ThisWorkbook.Sheets("Sheet2")
If m < 7 Then m = 7
' Find the last row in the source sheet
lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
' Set the range to copy
Set startCell = sourceSheet.Range("A1").Offset(n, 0)
Set endCell = sourceSheet.Range("A1").Offset(m, 0)
' Set the destination cell
Set destCell = destSheet.Range("A1")
' Copy the range and paste it to the destination cell
sourceSheet.Range(startCell, endCell).Copy destCell
Application.CutCopyMode = False
n = n + 1
m = m + 1
End Sub