问错误帮助:使用Application.Union添加到范围

EN

Sub Calculate()

'----Data Pull----'
  Dim cell As Range
  Dim OneRange As Range
  Dim TwoRange As Range
  Dim ThreeRange As Range
  Dim FourRange As Range
  Dim FiveRange As Range
  Dim SixRange As Range
  Dim SevenRange As Range
  Dim EightRange As Range
  Dim NineRange As Range
  Dim TenRange As Range

  Dim MyCount As Long
  Dim ExistCount As Long
  ExistCount = 0
  MyCount = 1


  For Each cell In Worksheets("Data").Range("C2:C99999")

  If cell.Value = Worksheets("Calculation").Range("B8").Value Then
  ExistCount = ExistCount + 1
      If MyCount = 1 Then Set OneRange = cell.Offset(0, -1)
      Set OneRange = Application.Union(OneRange, cell.EntireRow)
      MyCount = MyCount + 1


  ElseIf cell.Value = Worksheets("Calculation").Range("B9").Value Then
      ExistCount = ExistCount + 1
      If MyCount = 1 Then Set TwoRange = cell.Offset(0, -1)
      Set TwoRange = Application.Union(TwoRange, cell.EntireRow)
      MyCount = MyCount + 1


  End If
  Next cell


  If ExistCount > 0 Then
    OneRange.Copy Destination:=Worksheets("LOB One").Range("A3")
  End If

  If ExistCount > 0 Then
    TwoRange.Copy Destination:=Worksheets("LOB Two").Range("A3")
  End If

End Sub