Copy set of text values and paste multiple times to another worksheet

Option Explicit
Sub Macro1()    
    Dim lngMyCounter As Long
    Dim lngPasteRow As Long
    
    Application.ScreenUpdating = False
    
    For lngMyCounter = 1 To Sheets("Sheet2").Range("A2")
        If lngMyCounter = 1 Then
            lngPasteRow = 2
        Else
            lngPasteRow = Sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row + 1
        End If
        Sheets("Sheet1").Range("A2:A9").Copy Destination:=Sheets("Sheet3").Range("A" & lngPasteRow)
    Next lngMyCounter
    
    Application.ScreenUpdating = True


End Sub

Sub CopyMultipleTimes()
Dim lr As Long, n As Long, i As Long
Application.ScreenUpdating = False
lr = Sheet1.Range("A" & Rows.Count).End(3)(1).Row
n = Sheet2.Range("A2").Value
Sheet3.Range("A1").CurrentRegion.Offset(1).ClearContents
For i = 1 To n
   Sheet1.Range("A2:A" & lr).Copy Sheet3.Range("A" & Rows.Count).End(3)(2)
Next i
Application.CutCopyMode = 0
Application.ScreenUpdating = True
End Sub