Tenho uma planilha que importo e reorganizo as informações da plan5 para plan8, devido ao relatório do sistema muito ruim, só que quando pesso para reorganizar "bt Atualizar" na plan5 a macro esta sobrepondo a importação anterior, pois gostaria que quando reorganiza-se "bt Atualizar", ela buscaria a ultima linha vazia.

Sub DADOS()
Dim ws As Worksheet
Dim elin As Long
Dim slin As Long
Dim endlin As Long
Dim linha
linha = 1

While (Plan8.Cells(linha, 5) <> "")
linha = linha + 1
Wend

elin = 5
slin = 11

Set ws = Sheets("Dados")
endlin = ws.Range("A1048576").End(xlUp).Row
Do While slin <= endlin

If IsNumeric(ws.Cells(slin, 1)) Then
Cells(elin, 6) = ws.Cells(slin, 1)
Cells(elin, 8) = ws.Cells(slin, 2)
Cells(elin, 9) = ws.Cells(slin, 3)
Cells(elin, 10) = ws.Cells(slin, 4)
Cells(elin, 11) = ws.Cells(slin, 5)
Cells(elin, 12) = ws.Cells(slin, 6)
Cells(elin, 13) = ws.Cells(slin, 7)
Cells(elin, 14) = ws.Cells(slin, 8)
Cells(elin, 15) = ws.Cells(6, 2)
If IsNumeric(ws.Cells(slin + 2, 1)) Then
Cells(elin, 7) = ws.Cells(slin + 1, 1)
slin = slin + 2
Else
Cells(elin, 7) = ws.Cells(slin + 1, 1) & " " & ws.Cells(slin + 2, 1)
slin = slin + 3
End If
elin = elin + 1
Else
slin = slin + 1
End If

Loop

End Sub

silva_jmp