Löschen 2 Zeilen und 2 Spalten in VBA

Question

Mein Code ist unten. Ich möchte die Zeilen 81 und 82 und die Spalten F und H löschen. Mein Code unten löscht erfolgreich die Zeilen, aber nicht die 2 Spalten. Dieser Block befindet sich in einem größeren Sub.

With Sheets("PDEL_Report 500K") 
    Rows("81:82").Select 
    Selection.ClearContents 
    Selection.Delete Shift:=xlUp 

    Columns("F:F,H:H").Select 
    Selection.ClearContents 
    Selection.EntireColumn.Delete Shift:=xlLeft 

End With 

Answer 1

With Sheets("PDEL_Report 500K") 
    .Rows("81:82").EntireRow.Delete Shift:=xlUp 
    .Columns("H:H").EntireColumn.Delete Shift:=xlLeft 'delete H first so shift does not affect current column F 
    .Columns("F:F").EntireColumn.Delete Shift:=xlLeft 
End With 

Answer 2

Versuchen mit unter

With Sheets("PDEL_Report 500K") 
    .Rows("81:82").Delete Shift:=xlUp 
    .Columns("H:H").EntireColumn.Delete Shift:=xlToLeft 
    .Columns("F:F").EntireColumn.Delete Shift:=xlToLeft 
End With