VBA Coding between the lines!

[Peggy2015]

Hello,

How do I write a code to highlight everything, including the blank lines? I need to highlight and copy everything in B1:E7, and I seem to be stuck at just highlighting B1:E2. ActiveCell.CurrentRegion.Select isn't giving me much joy. I'm stuck in a virtual loop!

Thanks for your help.

Best wishes,
Peggy

[TABLE="class: cms_table_grid, width: 500, align: left"]
<tbody>[TR]
[TD]A
[/TD]
[TD]B
[/TD]
[TD]C
[/TD]
[TD]D
[/TD]
[TD]E
[/TD]
[TD]F
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]Cash
[/TD]
[TD]Stationery
[/TD]
[TD][/TD]
[TD]{formula = }Cash - Stationery
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]Cash
[/TD]
[TD]Cards
[/TD]
[TD][/TD]
[TD]{formula = }Cash - Cards
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4
[/TD]
[TD]Cheque
[/TD]
[TD]Rooms
[/TD]
[TD][/TD]
[TD]{formula = }Cheque - Rooms
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6
[/TD]
[TD]EFT
[/TD]
[TD]Stationery
[/TD]
[TD][/TD]
[TD]{formula = }EFT - Stationery
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7
[/TD]
[TD]EFT
[/TD]
[TD]Cards
[/TD]
[TD][/TD]
[TD]{formula = }EFT - Cards
[/TD]
[/TR]
</tbody>[/TABLE]

 

[Fluff]

How about

Range("B1", Range("B" & Rows.Count).End(xlUp).Offset(, 3)).Copy

 

[Peggy2015]

Hello,
Thank you very much for the code. This works like a charm!

Best wishes,
Peggy

 

[Fluff]

Glad to help & thanks for the feedback