Expertos la siguiente macro me falla

Expertos tengo la siguiente macro que copia un determinado rango pero cuando en algún rango no existen datos me marca un error, esto como lo puedo evitar??? Les dejo la macro para que la revisen.-

Sub COPIARENULTIMA()
Sheets("RESUMEN").Select
Range("A3:D3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("PASO1").Select
Range("A12000").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("RESUMEN ").Select
Range("f3:i3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("PASO1").Select
Range("A12000").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("RESUMEN").Select
Range("K3:N3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("PASO1").Select
Range("A12000").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("RESUMEN").Select
Range("P3:S3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("PASO1").Select
Range("A12000").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("INFORME").Select
End Sub