title: Getting Runtime error '6': Overflow error
body: <p>Code was working fine up until a couple of days ago but now getting the subject-line error.  Help?</p>
  
  <pre><code>Sub CopyRows()
      Dim bottomL As Integer
      Dim x As Integer
          bottomL = Sheets("Pacer").Range("L" &amp; Rows.Count).End(xlUp).Row: x = 1
  
      Dim c As Range
      For Each c In Sheets("Pacer").Range("A1:L" &amp; bottomL)
          If (c.Value = "AFSB" Or c.Value = "TEIGIP4T" Or c.Value = "EPP") Then
              Intersect(c.Parent.Columns("A:Q"), c.EntireRow).Copy Worksheets("Portfolio").Range("A" &amp; x + 1)
              x = x + 1
          End If
      Next c
  
  End Sub
  </code></pre>