Private Sub deleteRow(intCell As Integer) 'note: intCell is actually just the ROW
    Dim strRow As String

    strRow = Trim(str(intCell)) & ":" & Trim(str(intCell))
    Rows(strRow).Select
    Selection.Delete Shift:=xlUp

End Sub