Another Range question

[ummjay]

Hi, trying another range, and for some reason it's not pulling all the details.

Set WBrng = Range("A1", Range("J" & Rows.Count).End(xlUp))
WBrng.Copy

it's only displaying A1-J1. I'd like the last row to be dynamic in the event it goes longer than 9 rows:

sample data:

Header	Header	Header	Header	Header	Header	Header	Header	Header	Header
data	data	3	8455.9700000	data	7/31/2023		data
data	data	6	384.2500000	data	7/31/2023	data	data
Header	Header			Header	Header		Header
data	data	2	383.5	data	7/31/2023		data
data	data	2	384.65	data	7/31/2023		data
data	data	2	384.6	data	7/31/2023		data

any ideas?

 

[footoo]

Dim WBring As Range
Dim lr&: lr = ActiveSheet.Cells.Find("*", [A1], _
    xlFormulas, SearchDirection:=xlPrevious).Row
Set WBring = Range("A1:J" & lr)
WBring.Copy

 

[ummjay]

worked like a charm, thanks!