Preciso mover alguns dados de uma planilha para a outra de acordo com a data, mas a selação que eu fiz usando o comando IF só seleciona a última célula que atinge este critério ignorando as outras.
O que eu tenho até aqui:
Sub Copiar()
Dim range1 As Range
Set range1 = Range("k56:k58")
For Each cell In range1
If cell.Value = Range("R55").Value Then
cell.Offset(0, 2).Select
Selection.Copy
Sheets("Plan2").Activate
Range("r56").Select
ActiveSheet.Paste
End If
Next
End Sub