Copy Variable Row and Columns

[Irene94]

Hi experts, currently I have a data in this format

H.Freq	H.Uncorrect	H.Correction	H.Corrected	H.Limit
x	x	x	x	x
x	x	x	x	x
x	x	x	x	x
x	x	x	x	x
x	x	x	x	x
V.Freq	V.Uncorrect	V.Correction	V.Corrected	V.Limit
x	x	x	x	x
x	x	x	x	x
Tested xx
30~1000, 1000~4000

<tbody>
</tbody>

This data start from Row 34, there are other information before it, the number of row for the data "x" is variable, different file will have different row of data

How could I copy the cells from "H.Freq" to the data before "Tested"? The row "Tested xx" and the row below it is unwanted, and I only need column A, D and E.

The code I get after searching through the net is either copy until first empty space is met or until the last used cells...

 Range("A34").CurrentRegion.Copy Sheets(Sheets.Count).Range("A1")

This code only copy the cell "H.Freq" and its data

variable = Cells(Rows.Count, 1).End(xlUp).Row
Rows("34:" & variable).Copy Destination:=Sheets(Sheets.Count).Range("A1")

This code copy until the last used cells



Any help and advise is appreciated!
Thanks!

 

[Irene94]

Sorry I that I forgot to mention about the destination
I need the data copy and paste at the same worksheet from Range A1 and delete the other unwanted information.

 

[Irene94]

Sorry that I forgot to mention about the destination
The destination is at the same worksheet, other information should be deleted, which mean only the data that I have mentioned is left.
Again, thanks for any help and advise!