Ordenar dados de uma planilha em outra

[rodrigobiell]

Olá

preciso ordenar uma sequencia de dados de uma planilha em outra.

acho que fica melhor se olhar a planilha em anexo

obrigado  

ORDENAR.xlsx

[Basole]

segue o codigo abaixo: 

 

Sub Ordenar_Esq_Dir()
    Dim wsh1 As Worksheet
    Dim wsh2 As Worksheet
    Dim rng As Range, rng2 As Range
    Dim i As Long, j As Long, x As Long
    i = 4
    x = 4
    y = 5 ' *** COLOQUE 4 AQUI P/OS DADOS INSERIREM NA COLUNA "D" DA PLAN2
    For i = i To 11
        j = 8
        For j = j To 12
            Set wsh1 = Sheets("plan1")
            Set rng1 = wsh1.Cells(i, j)
            Set wsh2 = Sheets("Plan2")
            Set rng2 = wsh2.Cells(x, y)
            If rng1 = "" Then rng1 = 0
            rng2 = rng1
            x = x + 1
        Next j
    Next i
End Sub