title: Why does `Empty` not work in this VBA code?
body: <p>The code below is supposed to check if a cell is empty and, if it is empty, paste the contents of B26 into that cell. If the cell is not empty, it moves on to check the cell below it. I tried using <code>IsEmpty</code> but that didn't work, so I figured Excel was defaulting all empty cells to 0. So I tried using <code>Empty</code>(as shown in the code below) but that doesn't work either. </p>
  
  <pre><code>Sub Part1_Component_1_Foam_Color()
  '
  ' Transfers Component 1 Data if Foam or color
  '
  
  '
  Windows("Transfer Template.xlsm").Activate
  Range("B26").Select
  Selection.Copy
  Windows("Protected_JD_Form.xls").Activate
      If Range("B27:C27") = Empty Then
          Range("B27:C27").Select
          Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
              xlNone, SkipBlanks:=False, Transpose:=False
              Exit Sub
      ElseIf Range("B28:C28") = Empty Then
          Range("B28:C28").Select
          Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
              xlNone, SkipBlanks:=False, Transpose:=False
              Exit Sub
      ElseIf Range("B29:C29") = Empty Then
          Range("B29:C29").Select
          Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
              xlNone, SkipBlanks:=False, Transpose:=False
              Exit Sub
      ElseIf Range("B30:C30") = Empty Then
          Range("B30:C30").Select
          Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
              xlNone, SkipBlanks:=False, Transpose:=False
              Exit Sub
      End If
  Windows("Transfer Template.xlsm").Activate
  Range("A1").Select
  End Sub
  </code></pre>