Guima,
Sorry, acho que esqueci das 2 últimas colunas!
Bom, vai a mudança no código que deve funcionar:
Código: Selecionar todos
Sub Copia_De_MES_Para_CREC()
Dim linhaInicialOrigem As Integer
Dim linhaInicialDestino As Integer
Dim colunaInicialOrigem As Integer
Dim colunaInicialDestino As Integer
Dim totalColunasCopiadas As Integer
Dim contadorColunas As Integer
Dim contadorLinhas As Integer
Dim colunaMes As Integer
'planilhas
Dim planilhaOrigem As Worksheet
Dim planilhaDestino As Worksheet
Set planilhaOrigem = ThisWorkbook.Worksheets("MES")
Set planilhaDestino = ThisWorkbook.Worksheets("CREC")
linhaInicialOrigem = 5
linhaInicialDestino = planilhaDestino.Cells(65536, 2).End(xlUp).Row + 1
colunaInicialOrigem = 2
colunaInicialDestino = 2
totalColunasCopiadas = 14
contadorColunas = colunaInicialOrigem
contadorLinhas = 0
colunaMes = 12
While Not IsEmpty(planilhaOrigem.Cells(linhaInicialOrigem + contadorLinhas, colunaInicialOrigem).Value)
While contadorColunas <= totalColunasCopiadas
planilhaDestino.Cells(linhaInicialDestino + contadorLinhas, contadorColunas).Value = planilhaOrigem.Cells(linhaInicialOrigem + contadorLinhas, contadorColunas).Value
If contadorColunas = colunaMes Then
If IsDate(planilhaDestino.Cells(linhaInicialDestino + contadorLinhas, contadorColunas).Value) Then
planilhaDestino.Cells(linhaInicialDestino + contadorLinhas, contadorColunas).Value = DateAdd("m", 1, planilhaDestino.Cells(linhaInicialDestino + contadorLinhas, contadorColunas).Value)
End If
End If
contadorColunas = contadorColunas + 1
Wend
contadorLinhas = contadorLinhas + 1
contadorColunas = 1
Wend
End Sub
Adicionei a variável colunaMes que identifica qual o índice da coluna que contém a data na qual deve ser adicionado o mês.
A explicação vem logo depois.
Abraços