Cópia de Células

Sub selecao_Celulas()
Sheets("Plan1").Cells(1, 2).Select ' Seleciona a linha 1 coluna 2
End Sub

Sub celula_Preenche1()
Sheets("Plan1").Cells(1, 1).Value = "Despesas Fixas" ' Preenche na linha 1 coluna 1, o conteúdo que está entre aspas
End Sub

Sub celula_Preenche2()
Range("A5").Select ' Seleciona a célula A5
ActiveCell.FormulaR1C1 = "Teste" ' Preenche o conteúdo Teste nesta célula
End Sub

Sub copiando_Celula()
ActiveWorkbook.Sheets("Plan1").Cells(1, 1).Value = ActiveWorkbook.Sheets("Plan1").Cells(5, 1).Value
' A linha acima, copia o conteúdo que está na referência A5(Célula: 5,1) para a referência A1(Célula: 1,1)
End Sub

Sub copiando_Celulas()
ActiveWorkbook.Sheets("Plan1").Cells(2, 1).Value = ActiveWorkbook.Sheets("Plan1").Cells(5, 1).Value + _
ActiveWorkbook.Sheets("Plan1").Cells(6, 1).Value
' A linha acima, copia o conteúdo que está nas referências A5:A6(Célula: 5,1 e 6,1) para a referência A1(Célula: 2,1)
End Sub

Sub copiar_Celulas()
Sheets("inserir_Produtos").Select ' Seleciona a planilha inserir_Produtos
Range("A2:D2").Select ' Seleciona este intervalo de células

Selection.Copy 'Comando copiar
Sheets("Produtos").Select ' Seleciona a planilha
Range("A2").Select
ActiveSheet.Paste ' Cola as células copiadas acima
Application.CutCopyMode = False ' Desativa o comando copiar
End Sub

Copiando Células Referência relativa Copiando Células Referência relativa
Sub inserir()
Range("A2:C2").Select ' Seleciona o intervalo de células
Selection.Copy ' Copia o intervalo para área de transferência (memória)
Sheets("Produtos").Select ' Seleciona a planilha Produtos
Application.Goto reference:="R65535C1" ' Desloca para a linha 65535, indicando que este será o limite de inclusão de linhas do cadastro
Selection.End(xlUp).Select ' Desloca para o início da planilha
ActiveCell.Offset(1, 0).Range("A1").Select ' Avança para a próxima linha, ou seja: cada vez que for inserida um cadastro, irá para próxima linha, através de: ActiveCell.Offset(1, 0).Range("A1").Select --> Offset(1,0) indica: 1 vai para próxima linha e 0 indica a coluna A
ActiveSheet.Paste ' Cola o conteúdo copiado para área de transferência
Application.CutCopyMode = False ' Desativa a cópia feita para área de transferência
End Sub