Olá pessoal, sou novo aqui.
estou tentando concatenar concatenar a coluna C e D e colocar na coluna A, mas não estou conseguindo.
apresenta o erro de definição de aplicativo ou de definição de objeto.
alguém consegue me ajudar?
segue abaixo código
Sub TESTE()
Range("B1").Select
Selection.End(xlDown).Cells.Offset(1, 1).Select
Range(Selection, Selection.End(xlDown)).Cells.Offset(0, -1).Value = "Pereciveis"
Range(Selection, Selection.End(xlDown)).Cells.Offset(0, -2).Value = Cells.Offset(0, 0).Value & Cells.Offset(0, 1).Value
End Sub