<div>
Something like this?<br />
<br />

<pre><code id="code-20-37293286-1">Sub CopyDownEmpty()
'This macro takes the selected range and for each empty cell, _
copies the value of the cell above
Dim cl As range, rng As range

Set rng = [a2:a30000]

application.ScreenUpdating = False 'turns off screen updating

If application.WorksheetFunction.CountIf(rng, &quot;&quot;) &gt; 0 Then
    rng.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = &quot;=R[-1]C&quot;
    rng.EntireColumn.Copy
    rng.EntireColumn.PasteSpecial xlPasteValues
Else
    MsgBox &quot;No empty cells to fill&quot;
End If

application.CutCopyMode = False

application.ScreenUpdating = True 'turns screen updating back on
End Sub</code></pre>
<br />
Thomas
</div>


Something like this?



Sub CopyDownEmpty()
'This macro takes the selected range and for each empty cell, _
copies the value of the cell above
Dim cl As range, rng As range

Set rng = [a2:a30000]

application.ScreenUpdating = False 'turns off screen updating

If application.WorksheetFunction.CountIf(rng, "") > 0 Then
    rng.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    rng.EntireColumn.Copy
    rng.EntireColumn.PasteSpecial xlPasteValues
Else
    MsgBox "No empty cells to fill"
End If

application.CutCopyMode = False

application.ScreenUpdating = True 'turns screen updating back on
End Sub


Thomas

<div>
nutsch:<br />
That works when there's a number in the cell<br />
But when theres text like &quot;Bill&quot; it inserver =R[-1]C
</div>


nutsch:
That works when there's a number in the cell
But when theres text like "Bill" it inserver =R[-1]C

<div>
Follow-up question coming<br />

</div>


<div>
<div class="content wysiwyg-content">
In an Excel 2010 worksheet I want to build a Macro in VBA<br />
I have a column with data from A2-A30000<br />
I want to run a macro from top to bottom that is the current cell = &quot;&quot;&nbsp;set it to the cell above<br />
<br />
I program in VB and am rusty in VBA syntax<br />
<br />
<br />
So that starting at row 2<br />
<br />
1002<br />
<br />
<br />
1003<br />
<br />
Would become<br />
1002<br />
1002<br />
1002<br />
1003
</div>
</div>


In an Excel 2010 worksheet I want to build a Macro in VBA
I have a column with data from A2-A30000
I want to run a macro from top to bottom that is the current cell = "" set it to the cell above

I program in VB and am rusty in VBA syntax


So that starting at row 2

1002


1003

Would become
1002
1002
1002
1003

Run script on cells in VBA Macro

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Most development for the Microsoft platform is done utilizing the technologies supported by the.NET framework. Other development is done using Visual Basic for Applications (VBA) for programs like Access, Excel, Word and Outlook, with PowerShell for scripting, or with SQL for large databases.

Microsoft Development

Visual Basic .NET (VB.NET) is an object-oriented programming language implemented on the .NET framework, but also supported on other platforms such as Mono and Silverlight. Microsoft launched VB.NET as the successor to the Visual Basic language. Though it is similar in syntax to  Visual Basic pre-2002, it is not the same technology,