This is a custom function, to delete certain row(s) based on your specified Column and Row, then choose to delete the subsequent rows together in one go.
Function DeleteRows(ByVal validColumn As String, ByVal StartRow As Long, ByVal NumOfRows As Long)
Dim i As Long
Dim DelString As String
DelString = validColumn & StartRow & “:” & validColumn & NumOfRows
OpenResult = DeleteRows(“A”, 1, 9)