title: VBA copy cells value and format
body: <p>How can I amend the following code in order to copy not only the value but also the fonts style, e.g. bold or not bold. Thanks</p>
  
  <pre><code>Private Sub CommandButton1_Click()
  Dim i As Integer
  Dim a As Integer
  a = 15
  For i = 11 To 32
    If Worksheets(1).Cells(i, 3) &lt;&gt; "" Then
      Worksheets(2).Cells(a, 15) = Worksheets(1).Cells(i, 3).Value
      Worksheets(2).Cells(a, 17) = Worksheets(1).Cells(i, 5).Value
      Worksheets(2).Cells(a, 18) = Worksheets(1).Cells(i, 6).Value
      Worksheets(2).Cells(a, 19) = Worksheets(1).Cells(i, 7).Value
      Worksheets(2).Cells(a, 20) = Worksheets(1).Cells(i, 8).Value
      Worksheets(2).Cells(a, 21) = Worksheets(1).Cells(i, 9).Value
      a = a + 1
    End If
  Next i
  </code></pre>