Fill columns botom up fashion (editing current code)

After must use, the same database is giving me an error when I run the macro,

Dim Last As Integer, Dn As Integer, oLt As String
Dim rng As Range, Col As String, Co As Integer


For Co = 1 To 2
If Co = 1 Then Col = "H"
If Co = 2 Then Col = "I"


Last = Range(Col & Rows.Count).End(xlUp).Row + 1

For Dn = Last To 1 Step -1
oLt = Cells(Dn, Col).Value

Do While oLt = Cells(Dn, Col) Or Cells(Dn, Col) = ""
Cells(Dn, Col) = oLt
If Dn = 1 Then Exit For
Dn = Dn - 1
Loop
Dn = Dn + 1
Next Dn

Next Co

End Sub

The line

Last = Range(Col & Rows.Count).End(xlUp).Row + 1

is giving an error, something like run time '6' Overflow

I tried different techniques and then I tried to run the code dividing my database in two halves and it worked, can it be my database is too big? Im not sure as to why it is doing that when I run my whole database but when I halved it and did it in two parts it worked? any help would be appreciated.

You're getting an overflow error.

Variables that refer to row numbers should be Longs, not Integers.

sorry for the double post

Can you explain what you're trying to do?

The code you have commits the cardinal sin of changing a loop counter inside a loop.

Hello shg, this code does the following,

I have parameters that have columns H and I blank lets call those X, and in the same database there are parameters lets call them Y, that have columns H and I filled and they correspond to the empty columns found in H and I of parameter X.

Now, Parameter Y ALWAYS occurs after parameter X hence, we have a bunch of parameter X in a row with empty columns, H and I, and preceeding them theres parameter Y containing values in column H and column I.

Objective: I would like to take those columns of H and I of parameter Y and fill the blank columns of parameter X in a bottom up fashion so that everytime it hits that next parameter Y, with it's NEW data columns H and I, the above parameter X will take on those NEW values and continue filling untill it reaches the top.


Best explained with an example

and lastly, the original code works like a charm up untill now, the ONLY thing that has changed is that the database has increased,

this current database that the code is required to work for is 18107 rows of data A-J columns I do not want to limit the code because the database will probably only get bigger/ relatively stay the same.

Ah.

Try this:

Please Login or Register  to view this content.

OK, try this:

Please Login or Register  to view this content.

If you wish to continue to receive help then please follow the forum rules below as yout close to a ban

VBA Noob