Pesquisar na Comunidade

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