Data from rows into columns

Public Sub copyNRowsToColumns()

    Dim sSrcSheet As String
    Dim lSrcRowStart As Long
    Dim iSrcCol As Integer
    
    Dim sTgtSheet As String
    Dim lTgtRowStart As Long
    Dim iTgtCol As Integer
    Dim lRowsToTranspose As Long
    
    Dim lSrcRow As Long
    Dim lTgtRow As Long
    Dim lLastSrcRow As Long
    
    sSrcSheet = "Sheet1"
    lSrcRowStart = 1
    iSrcCol = 1
    
    sTgtSheet = "Sheet1"
    lTgtRowStart = 1
    iTgtCol = 2
    lRowsToTranspose = 4
    
    With Sheets(sSrcSheet)
        lLastSrcRow = .Cells(.Rows.Count, iSrcCol).End(xlUp).Row
        
        For lSrcRow = lSrcRowStart To lLastSrcRow Step lRowsToTranspose
            .Range(.Cells(lSrcRow, iSrcCol), .Cells(lSrcRow + lRowsToTranspose - 1, iSrcCol)).Copy
            Sheets(sTgtSheet).Cells(lTgtRowStart, iTgtCol).PasteSpecial Transpose:=True
            lTgtRowStart = lTgtRowStart + 1
        Next lSrcRow
    End With
End Sub