On running this code;

On Error GoTo SKIPERROR

Range("M14:M20").SpecialCells(xlCellTypeBlanks).De lete xlUp
Range("n14:n20").SpecialCells(xlCellTypeBlanks).De lete xlUp
Range("O14:O20").SpecialCells(xlCellTypeBlanks).De lete xlUp
Range("P14:P20").SpecialCells(xlCellTypeBlanks).De lete xlUp

skiperror:
Range("a18") = Range("n14")
Range("b18") = Range("n15")
Range("c18") = Range("n16")
Range("d18") = Range("n17")
Range("e18") = Range("n18")
Range("f18") = Range("n19")
Range("g18") = Range("n20")
Range("h18") = Range("n21")
Range("i18") = Range("n22")
Range("j18") = Range("n23")

I get a run time error 1004 - No cells were found
I thought the skiperror would handle this but it doesn't - please tell
me where I am going wrong!