Sub importar()

    ' IDENTIFICAR QUAL E A ULTIMA LINHA DA PLANILHA PRME
    ultima_linha_prme = WorksheetFunction.CountA(Worksheets("teste").Range("A:A")) + 1

    ultima_linha_importar = WorksheetFunction.CountA(Worksheets("importar").Range("A:A"))

    ' A PARTIR DA PLANILHA IMPORTAR REALIZAR UM LOOP
    ' PARA PEGAR CADA ITEM E ADICIONAR NO FINAL DA PLANILHA PRME

    For linha = 2 To ultima_linha_importar

        ' LOCAL
        Worksheets("teste").Cells(ultima_linha_prme, 2) = Worksheets("importar").Cells(linha, 3)

        'ITEM
        Worksheets("teste").Cells(ultima_linha_prme, 3) = Worksheets("importar").Cells(linha, 1)

        'QTD
        Worksheets("teste").Cells(ultima_linha_prme, 4) = Worksheets("importar").Cells(linha, 2)

        ' MUDANDO DE LINHA
        ultima_linha_prme = ultima_linha_prme + 1

    Next linha



    ' CLASSIFICAR A PLANILHA PRME EM ORDEM CRESCENTE PELO LOCAL
     With ActiveWorkbook.Worksheets("TESTE").Sort
        .SetRange Range("A:L")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With


    ' REFAZER A SEQUENCIA AUTO NUMERACAO
    For linha = 2 To ultima_linha_prme - 1

        Worksheets("teste").Cells(linha, 1) = linha - 1

    Next linha

End Sub