This is just a concept to suggest a possible approach


It finds the last cell in Col A with data and uses that and 3 rows above in a 0-3 loop

In the 0-3 loop, it move data to (for first line) to (2,3), (2,13), (2,23), and (2,33) using iOffset = iOffset + 10


Option Explicit
Sub Concept()
    Dim strPath As String
    Dim strfolderpath As String
    Dim LastRow As Long
    
    Dim iStartRowOfLastBlock As Long, iBlockRow As Long
    Dim shtData As Worksheet, shtResult As Worksheet
    Dim iOffset As Long
    
    Set shtData = Sheets("Data")
    Set shtResult = Sheets("SampleResult")
    iStartRowOfLastBlock = shtData.Cells(Rows.Count, 1).End(xlUp).Offset(-3, 0).Row

    iOffset = 0
    For iBlockRow = 0 To 3      '    <- 4 loops, 1 for each line
        iStartRowOfLastBlock = iStartRowOfLastBlock + iBlockRow
        'didn't understand this
        'This is the beginning of the loop
        'Offset = 12 <-- I think it is 12, I highlighted it from the first entry (C2) to the next symmetrical entry (R1) it says 12 on "SampleResult"

        'ii = sht1.Range("A:A").Find("*", searchdirection:=xlDown).Offset(-3, 0).Row
        'sht2.Columns(1, Offset).PasteSpecial Paste:=xlPasteValuesAndNumberFormats <-- Error here so far
        'Flask 1
        With shtResult  '   I think I know my ABCs but better check
            .Cells(2, 3 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 1).Value
            .Cells(4, 3 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 2).Value
            .Cells(5, 3 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 3).Value
            .Cells(1, 8 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 4).Value
            .Cells(1, 3 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 5).Value
            .Cells(3, 3 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 6).Value
            .Cells(6, 3 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 7).Value
            .Cells(7, 3 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 8).Value
            .Cells(4, 7 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 9).Value
            .Cells(4, 8 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 10).Value
            .Cells(4, 9 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 11).Value
            .Cells(12, 5 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 12).Value
            .Cells(13, 5 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 13).Value
            .Cells(14, 5 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 14).Value
            .Cells(12, 9 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 15).Value
            .Cells(13, 9 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 16).Value
            .Cells(14, 9 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 17).Value
            .Cells(20, 4 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 18).Value
            .Cells(20, 5 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 19).Value
            .Cells(21, 5 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 20).Value
            .Cells(21, 4 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 20).Value
            .Cells(20, 3 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 21).Value
            .Cells(22, 4 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 22).Value
            .Cells(20, 7 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 23).Value
            .Cells(20, 8 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 24).Value
            .Cells(21, 7 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 25).Value
            .Cells(21, 8 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 25).Value
            .Cells(20, 6 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 26).Value
            .Cells(22, 7 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 27).Value
            .Cells(5, 11 + iOffset).Value = shtData.Cells(iStartRowOfLastBlock, 28).Value
        End With
        
        iOffset = iOffset + 10
    '---------------------------------------------------------------------------------------------------------------------ROWS or COLUMNS -- I did columns
    Next i  '    <-- I want the loop to go to the next rows (from the bottom most row going -3, -2, -1, 0) and scoot over 10 rows to paste.

    ThisWorkbook.Sheets("SampleResult").Select
    'Store results in "USRMResultsAnalysis" Sheet from "SampleResult" Sheet
End Sub