Ayuda con macro para copiar de una hoja a otra

Hola buen dia a todos

Estoy haciendo una macro para copiar de la hoja RESUMEN a la hoja VALDATOS,
de la siguiente manera:
columnas de la D a la I, luego la C y por ultimo B, pero solo logro que me
copie las columnas C y B, en donde estará mi error?????
anexo la sig. macro para ver donde esta mi error.
Sub Macro2()
Columns("D:I").Select
Selection.Copy
Sheets("VALDATOS").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("RESUMEN").Select
Columns("C").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("VALDATOS").Select
Range("G1").Select
ActiveSheet.Paste
Sheets("RESUMEN").Select
Columns("B").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("VALDATOS").Select
Range("H1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("VALDATOS").Select
End Sub

Les agradezco de antemano sus comentarios

Saludos