locate and copy macro needed

[acemecca]

greetings:

i have a spreadsheet where i need to copy a cell and enter the same contents in the cell above it (all in the same column) ONLY if there is a blank above the data

for example: i have data in cell 'J4"....i need the macro to find the blanks in column J (which is J3) and paste the item in the blank...

it should repeat through the column...

please advise!

 

[niceguy_jay]

try this...you will need to enter the column number in the input box....

Sub test()
Dim i As Integer
i = InputBox("Enter the column number in numeric")
eRow = Cells(Rows.Count, i).End(xlUp).Row
Cells(1, i).Select
Do
If ActiveCell.Value = "" Then
ActiveCell.Value = ActiveCell.Offset(1, 0).Value
End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Row = eRow
End Sub

 

[acemecca]

thanks a lot...will try it now and will come back if i have any issues....u guys are a timesaver...thanks again!