how to make this work - Range(Cells(6, TotalAmount), Cells(330, TotalAmount).End(xlUp))

[yky]

I'm trying to set a range using the following code:

Set rng1 = Range(Cells(6, TotalAmount), Cells(330, TotalAmount).End(xlUp))

It didn't work. It selected the range $P$4:$P$6 while p7 to p16 are not empty. What I want is a range starting from p6 down to before the first empty cell.

I tried the following code, it did not work either.

Set rng1 = Range(Cells(6, TotalAmount), [Cells(330, TotalAmount)].End(xlUp))

neither did this code:

Set rng1 = Range(Cells(6, TotalAmount), [Cells(330, TotalAmount).address].End(xlUp))


Any suggestion?

 

[venkat1926]

It is not clear what you want to do.
in cells(j,k) this is the cell in the intersection of Jth row and kth column
in your case what is "total amount". your cells difiniltion will give intersection of 6th row and column number equal to 'total amount"

so explain with one or two examples