VBA Count above values below.

[Stephen_IV]

Good morning,

I need help with some VBA. I have about 350,000 rows of data. What I am trying to do is to put the actual count above the numbers they are counting. Please see below. Thanks in advance!



<style type="text/css">
table.tableizer-table {
font-size: 12px;
border: 1px solid #CCC ;
font-family: Arial, Helvetica, sans-serif;
}
.tableizer-table td {
padding: 4px;
margin: 3px;
border: 1px solid #CCC ;
}
.tableizer-table th {
background-color: #104E8B ;
color: #FFF ;
font-weight: bold;
}
</style>
<table class="tableizer-table">
<thead><tr class="tableizer-firstrow"><th>Account Numbers</th><th>Count</th></tr></thead><tbody>
<tr><td> </td><td>7</td></tr>
<tr><td>400005</td><td> </td></tr>
<tr><td>4000013</td><td> </td></tr>
<tr><td>198051</td><td> </td></tr>
<tr><td>401136</td><td> </td></tr>
<tr><td>1797049</td><td> </td></tr>
<tr><td>2396013</td><td> </td></tr>
<tr><td>1097060</td><td> </td></tr>
<tr><td> </td><td>4</td></tr>
<tr><td>599146</td><td> </td></tr>
<tr><td>7654321</td><td> </td></tr>
<tr><td>9394083</td><td> </td></tr>
<tr><td>2697015</td><td> </td></tr>
<tr><td> </td><td>2</td></tr>
<tr><td>4000005</td><td> </td></tr>
<tr><td>4000056</td><td></td></tr>
</tbody></table>

 

[Fluff]

How about

Sub Stephen_IV()
   Dim Rng As Range
   
   For Each Rng In Range("A2:A" & Rows.Count).SpecialCells(xlConstants).Areas
      Rng.Offset(-1, 1).Resize(1).Value = Rng.Count
   Next Rng
End Sub

 

[Stephen_IV]

That was fast!! Amazing Fluff!!!! I appreciate your help and guidance on this!!!!

 

[Fluff]

You're welcome & thanks for the feedback