How To Get Data From Range

The find functions is useful to find the emails I want to find. And what I actually need is the data between the emails which are in different categories,e.g. in column A are names ,column B is sex, Column C is age, etc...

And now to do an analysis I only need column A and C, but I dunno how I can extract those columns from Range(found.Offset(1, 0), found1.Offset(-2, 8)).

Code:

Sub Header()
Worksheets("sheet1").Activate
Dim found As Range
Dim found1 As Range
With Range("A:I")
Set found = .Find(what:="Learningenglish@gmail.com", after:=.Cells(.Cells.Count), _

[Code]....