Delete Identified Rows

[gheyman]

I am trying to use VBA to delete specified row. I want to delete from row 16 down to a dynamic number.

I am using =COUNTA(PartTask_Table[ItemId]) in cell D14. This tells me how many rows I have in the table.

I am trying this code but the "Rows(“fromrow:torow”).EntireRow.Delete" is colored red in my code.

Sub TestThis()

Dim fromrow As String
Dim torow As String

'On Error Resume Next ‘Blanket error handling

fromrow = Sheet9.Range("16")
torow = Sheet9.Range("D14").Value
Rows(“fromrow:torow”).EntireRow.Delete

End Sub

Also how could I use this to enter/insert X number of rows?

Thanks for the help

 

[gheyman]

Solved

In Sheet2.Range("B12") I have a CountA formula

Sub InsertRows()

Dim iRow As Long

    iRow = Sheet2.Range("B12").Value
    
     '   If Sheet2.Range("B12").Value > 0 Then
        
        Sheet9.Select
    
          Range("A15").EntireRow.Offset(1).Resize(iRow).Insert Shift:=xlDown
    
      '  Else
    
'End If
    
End Sub

 

[Alex Blakenburg]

All you really needed was this:

Rows(fromrow & ":" & torow).Delete

OR

Range(fromrow & ":" & torow).Delete