title: Macro to write certain cells font size in another cell range
body: <p>I have a set of values in Excel - numbers in many rows.</p>
  
  <p>I need Excel VBA code that writes the font sizes of these values in other empty rows in the same sheet. Below is VBA code that can do it for one row and write the font size in another row.                            </p>
  
  <p>I need help with achieving the same result for multiple rows.</p>
  
  <pre><code>'executes when the user presses the Run button
  Private Sub btnRun_Click()
      Dim i As Integer
      'loops through the cells in row 1
      For i = 1 To 8
          'gets the font size
          Cells(3, i) = Range(Cells(1, i), _
          Cells(1, i)).Font.Size
      Next i
  End Sub
  </code></pre>