Como no dices desde que celda colocaras esos datos, ni siquiera lo veo en la grabacion que muestras, a menos quieras copiarla toda.
Te propongo evaluar la primera celda del rango destino en la hoja Enero (estoy suponiendo que es A2), es decir,
Sub Macro1()
Sheets("Datos").Select
Cells.Select
Selection.Copy
Sheets("Enero").Select
If Range("A2").Value <> "" Then
MsgBox "YA LOS DATOS FUERON ACTUALIZADOS", vbCritical, "Advertencia..."
Exit Sub
End If
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Sheets("Resumen").Select
End Sub
Sin embargo esto lo veo la evaluacion muy ligera, pero total es lo que pediste