Parceiros,

O código abaixo copia os dados da planilha de origem e cola numa outra, porém ele está copiando por cima da informação que por ventura, já esteja preenchida na planilha de destino.

A pergunta é; como fazer para que ele cole sempre depois do último na planilha de destino?

Sub deslocar_geral_UF()

Dim slin As Long
Dim elin As Long

slin = 2
elin = 2

Do While Sheets("compilado").Cells(slin, 1) <> "" 'delimita uma coluna para fazer o loop
If Sheets("compilado").Cells(slin, 1) = "AC" And Sheets("compilado").Cells(slin, 20) = "2008" Then
Sheets("compilado").Range("A" & slin & ":T" & slin).Copy
Windows("AC.xls").Activate
Sheets("2008").Activate
Sheets("2008").Range("A" & elin).Select
Selection.PasteSpecial Paste:=xlPasteValues
slin = slin + 1
elin = elin + 1
Else
slin = slin + 1
End If
Windows("Matriz.xls").Activate
Loop
Application.CutCopyMode = False
End Sub