Excel Váriavel para selecionar próxima linha em branco em código encurtado

[Victor Coutinho]

Olá srs.

 

Minha dúvida deve ser bem simples para vocês. Sei que o ideal é anexar a planilha, mas minha planilha imensa, e substituir todos os dados tomaria um tempo enorme, por isso vou tentar explicar minha dúvida da forma mais simples possível.

Sheets("Plan1").Select

[B8:C8].Copy: Sheets("Plan2").["A1"].PasteSpecial (xlPasteValues): Application.CutCopyMode = False

Só preciso que nessa linha desse código, onde está "A1" seja a próxima linha em branco.

Já tentei criando uma variável "UltLin" do tipo Interger e substituindo o A1 por UltLin mas da o erro "O objeto é obrigatório"

 

Sei que tem códigos maiores que fazem isso, mas como disse, minha planilha é imensa, e queria encurtar...

 

Obrigado.

[Patropi]

Boa noite @Victor Coutinho

 

Experimente assim:

Sheets("Plan1").Range("B8:C8").Copy
Sheets("Plan2").Range("A1").Value <> "" Then
Sheets("Plan2").Range("A1").CurrentRegion.End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Se foi útil, clique em Curtir.

Dê retorno.

 

[]s

[Visitante]

[B8:C8].Copy: Sheets("Plan2").Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues

 

[Victor Coutinho]

Muito Obrigado @osvaldomp, serviu perfeitamente aqui!!!

Só para eu entender... O que seria "(3)(2)" após o End?

 

[Visitante]

13 horas atrás, Victor Coutinho disse:

O que seria "(3)(2)" após o End?

 

 

Seria não, é!

 

Equivale a:

Cells(Rows.Count, 1).End(xlUp).Cells(2, 1)