Marco to Paste data next to a to blank row

[UnitedSkysJoey]

Hello Mr. Excel members!

I am stumped with a Marco need.

Here is (what I think) is a similar macro I already have:

Sub AddRow5()
'
' Cut_PasteSpecial Macro
'


'
Range("C5:S5").Select
Selection.Copy
Sheets("Presentation for Approval").Select
Range("A1:S1").Select
lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & lMaxRows + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("AP Formulas").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

What I need is something that will do almost the exact opposite.

I have a spreadsheet with values in one column. I have another spreadsheet where I want a button that when clicked will return the value from that column next to the first blank row.

Any thoughts on how I can rewrite (or another all new) marco that would get me what I need?

 

[fullerorb7]

idk what you data your working with or what im really coding lol but lets say you have column b full and C partially empty.
change to your column names then press F8 to over and over and watch it step through to learn how it works. if your working with a really large file then arrays will be the way to go due to efficiency.

dim lastrow, i as integer
lastrow = range("b2000").end(xlup).row 'assuming you have less than 2000 rows. *change the number if you want.
for i = 1 to lastrow
if range("c" & i).value = "" then
range("C" & i).value = range("B" & i).value
end if
next