Is there a way to replace this:

With Worksheets("Dif_data")
Columns("G:G").Delete
Columns("O:O").Delete
Columns("AB:AC").Delete
End With

With something shorther like:

Columns("G:G, P:P, AD:AE").Delete

(Doesn't work like this because I get this type mistmatch
error 13)