Heelo All,

I am trying to delete a range of data that is between the row with text "Account Statement for" and one row below the row with test "Account Trade History".

I am new to VBA and am having difficulty trying to define ranges. My syntax is pretty awful as well. (My skills are actually not very good all the way around).

Am I close to being on the right track?

Any help would be very much appreciated.

John




Sub RangeDelete()
'
' RangeDelete Macro
'
    FirstRowDelete = Cells.Find(What:="Account Statement for", After:=ActiveCell, LookIn:= _
       xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
   
    
    
    

    NextRowDelete = Cells.Find(What:="Account Trade History", After:=ActiveCell, LookIn:= _
       xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
  
    
     Range("FirstRowDelete:NextRowDelete + 1").EntireRow.Select
     
'
End Sub