Copying a row into the first blank row

Question

Copying a row into the first blank row

Morglisn (Industrial)

(OP)

2 Jul 03 14:00

Hey, guys.

I'm trying to have my script find the first available blank row, and copy the row immediately above it (formulas and formats only) onto the blank row. Any ideas on how to go about this? And take it easy on me, I'm fairly new to VBA.

Thanks!!

ab123456 (Chemical) · Answer 1 · 2003-07-03 08:24:03

You could try something like this, this searches down column A for an empty cell and then copies the formats and formulas of the previous row.

sub macro1()
    Columns("A:A").Select
    blankrow = Selection.Find(xlEndrow).Row
    copyrow = blankrow - 1
    Rows(copyrow).Copy
    Rows(blankrow).PasteSpecial Paste:=xlFormats
    Rows(blankrow).PasteSpecial Paste:=xlFormulas
end sub

I hope i have understood your problem correctly.

Morglisn (Industrial) · Answer 2 · 2003-07-03 08:28:28

You certainly did, and thanks! I've used what I've gotten here and tek-tips to write my own code (I hate copy-paste, especially when I'm not sure how it works). I learned enough from all of you to get it going..

Thanks a bunch!!

Come Join Us!

Posting Guidelines

Copying a row into the first blank row