Sub Copiar_Intervalo() 'Copia todas os dados da planilha 1 para a primeira célula vazia abaixo dos dados da planilha 2 Dim lin_ini As Long, col_ini As Long, col_fim As Long, lin_fim As Long Dim lin_ini2 As Long, col_ini2 As Long, col_fim2 As Long, lin_fim2 As Long Dim contador As Long col_ini = 6 'C...