delete 5 cells if the value of another cell is 5

[jerry1992]

Hello, I would like to be able to delete the number of cells in a column, with the number of cells being deleted based on the
value of another cell.

For example if H2 = 5
then when I run the macro it would delete the bottom 5 cells in Column H with the range of the deletion being H3:34

So if H2=5 then it would delete H34, H33, H32, H31, and H30.

also I would like the cells to shift up when deleted so im guessing I'd use Shift:=xlUp?

 

[jerry1992]

I actually just realized I posted this entirely incorrect.
If H2=5 then I need the cells outside of the 5 cells at the top deleted.
So if H2= 5 then I would like to delete H9-34
This complicates things and Im sorry for that as I do not see an option to delete the post so I can create another.

 

[jerry1992]

Sub delzdstaA2()
If Range("H2").Value = 0 Then
ActiveSheet.Range("H3:H34").Select
Selection.Delete Shift:=xlUp
End If
If Range("H2").Value = 1 Then
ActiveSheet.Range("H4:H34").Select
Selection.Delete Shift:=xlUp
End If
If Range("H2").Value = 2 Then
ActiveSheet.Range("H5:H34").Select
Selection.Delete Shift:=xlUp
End If
If Range("H2").Value = 3 Then
ActiveSheet.Range("H6:H34").Select
Selection.Delete Shift:=xlUp
End If
If Range("H2").Value = 4 Then
ActiveSheet.Range("H7:H34").Select
Selection.Delete Shift:=xlUp
End If




ActiveSheet.Range("F2").Select

End Sub

did that all the way to H2 = 32. Probably not the most efficient but it works