Bepaalde cellen wissen bij .Active

[alegandro]

ik heb de volgende code:

Sub RijVerwijderen()
Dim Response
Response = MsgBox("De rij van de active cel wordt gewist. Doorgaan ?", vbYesNo, "Rij verwijderen ?")
If Response = vbYes Then
ActiveCell.EntireRow.ClearContents
End If

End Sub

nou wist ie alleen de gehele rij, maar nou moet ie alleen van de rij waar de active cel is. alleen de cellen van kolom B t/m F wissen en van H t/m Z.
Eigenlijk dus de gehele rij wissen op kolom G na.

ik heb al ff zitten rommelen, maar dat lukt me dus niet.
iemand?

bedankt,

Alex

 

[Warme bakkertje]

Sub RijVerwijderen()
If MsgBox("De rij van de active cel wordt gewist. Doorgaan ?", vbYesNo, "Rij verwijderen ?") = vbYes Then
    Union(ActiveCell.Resize(, 5), ActiveCell.Offset(, 6).Resize(, 19)).ClearContents
End If
End Sub

 

[alegandro]

Kijk dat is em, ik zat aldoor met Range(blabla maar dat werkte id niet.

en als ik nou twee actieve cellen heb, dan pakt ie de bovenste om te deleten. is het niet mogelijk dat ie dan de twee rijen wist?? (of naar gelang hoeveel cellen je geselecteerd hebt)?

bedankt iig.