Talvez tenha uma forma mais simples, mas eu faria assim:

Option Explicit

Sub stepone()

Const O         As Long = 1 'Origem
Const D         As Long = 2 'Destino

Dim ws(O To D)  As Worksheet
Dim PL          As Long 'Primeira Linha
Dim UL          As Long 'Última Linha
Dim PC          As Long 'Primeira Coluna
Dim UC          As Long 'Última Coluna
Dim i(O To D)   As Long 'linhas
Dim j(O To D)   As Long 'colunas

Set ws(O) = Sheets("Sheet1")
Set ws(D) = Sheets("Transfer")

PL = 2
UL = ws(O).Range("M2").Value2
PC = 1 'A
UC = 12 'L

i(D) = PL
j(D) = PC

For i(O) = PL To UL
    For j(O) = PC To UC
        If Not IsEmpty(ws(O).Cells(i(O), j(O))) Then
            ws(D).Cells(i(D), j(D)).Value2 = _
            ws(O).Cells(i(O), j(O)).Value2
            If j(D) = UC Then
                j(D) = PC
                i(D) = i(D) + 1
            Else
                j(D) = j(D) + 1
            End If
        End If
    Next j(O)
Next i(O)

Call steptwo

End Sub

Muito obrigado pela ajuda!!!