vba to offset range

[cjcass]

Hi,
I have the code below that finds a cell, offsets and copies the range 100 cells below, how do I change the offset to get it to also select the column to the right so it's copying 100 rows down and 2 columns?
Many thanks.

Dim rFound As Range
   
    Set rFound = Sheet6.Rows(210).Find(What:=Sheet1.Range("E2").Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
    If Not rFound Is Nothing Then
   
    rFound.Offset(2, 0).Resize(100).Copy
       
    End If

 

[cjcass]

Ok, I played about and found what appears to be a simple solution.

Sheet6.Rows(210).Find(What:=Sheet1.Range("E2").Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False).Activate
    
Range(ActiveCell.Offset(2, 0), ActiveCell.Offset(100, 1)).Select
    
Selection.Copy

 

[John_w]

2 rows down from the found cell, copy 100 rows x 2 columns:

rFound.Offset(2, 0).Resize(100, 2).Copy

 

[cjcass]

2 rows down from the found cell, copy 100 rows x 2 columns:

rFound.Offset(2, 0).Resize(100, 2).Copy

many thanks, I'll save that one for later