Boa tarde pessoal!
Como faço para colar os dados selecionados de uma planilha em outra planilha abaixo de outros dados, sendo que é pra ser colado a partir da última linha em branco?
Eu uso esse código abaixo,ela filtra dados de duas planilhas e cola em outra, primeiro filtra uma e cola, e depois filtra outra e cola, porem a segunda lista de dados são delimitados para serem colados a partir da linha 85 (está em negrito o código)

Sub Macro2()
Dim nLinhas As Long

Sheets("Programação").Select
Range("A3:S83").Select
ActiveWindow.SmallScroll Down:=15
Range("A3:S83,A85:S150").Select
Range("A85").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-168

Sheets("Extrusão").Range("A:S").AutoFilter Field:=19, Criteria1:="=Aguardando Movimentação", Operator:=xlOr, Criteria2:="=Em Aberto"
Sheets("Extrusão").Visible = True

k = 0
For UL = 1 To 19
nLinhas = Sheets("Extrusão").Cells((Rows.Count), UL).End(xlUp).Row
If nLinhas >= k Then k = nLinhas
Next
Sheets("Extrusão").Range("A" & 2, "S" & nLinhas).Copy

Sheets("Programação").Cells(3, 1).PasteSpecial Paste:=xlPasteValues

Sheets("Corte Solda").Range("A:S").AutoFilter Field:=19, Criteria1:="=Na Fila", Operator:=xlOr, Criteria2:="=Em Aberto"
Sheets("Corte Solda").Visible = True

k = 0
For UL = 1 To 19
nLinhas = Sheets("Corte Solda").Cells((Rows.Count), UL).End(xlUp).Row
If nLinhas >= k Then k = nLinhas
Next
Sheets("Corte Solda").Range("A" & 2, "S" & nLinhas).Copy

Sheets("Programação").Cells(85, 1).PasteSpecial Paste:=xlPasteValues

Sheets("Corte Solda").Select
ActiveSheet.Range("$A$1:$S$3").AutoFilter Field:=19
Sheets("Extrusão").Select
ActiveSheet.Range("$A$1:$S$7").AutoFilter Field:=19
Sheets("Programação").Select
Range("A3").Select

ActiveWorkbook.Save

End Sub

Na vdd o que eu quero é que essa segunda lista de dados seja colada abaixo da última célula preenchida dos dados colados anteriormente ..
Vlw pessoal!