Fjernelse af rækker med tomme felter

Denne sletter cellerne i kolonne f,g,h og rykker cellerne under op
hvis alle 3 er tomme i det aktive ark

Sub tst()
rk = ActiveCell.SpecialCells(xlLastCell).Row
For t = 1 To rk
If Cells(t, "F") = "" And Cells(t, "G") = "" And Cells(t, "H") = "" Then
Range("F" & t & ":H" & t).Delete Shift:=xlUp
End If
Next
End Sub

?