title: VBA is copying the range of three cells and saving it to another file how do i get it to increment the range
body: <p>My VBA code is being feed input from a scanner that scans a barcode that then inputs three pieces of information into cells A1 B1 and C1. The first time around it works fine, however after I try to do it on the row below it doesn't work. I know it has something to do with the range I am selecting, but I don't know how to increment a range.  this is my code so far :</p>
  
  <pre><code>    Private Sub Worksheet_Change(ByVal Target As Range)
  
  Dim String_1 As String
  Dim String_2 As String
  Dim String_3 As String
  
  String_1 = "400"
  String_2 = "401"
  String_3 = "402"
  
  If Len(Range("A1").Value) &gt; 0 And Len(Range("B1").Value) &gt; 0 And Len(Range("C1").Value) &gt; 0 Then
  
  Dim sComp As String
  sComp = Left(Range("C1"), 3)
  
   If sComp = String_1 Or sComp = String_2 Or sComp = String_3 Then
  
      Range("A1:C1").Copy
      Dim wbCopy As Workbook
      Set wbCopy = Workbooks.Add
  
      With wbCopy
          .Sheets(1).Range("A1").PasteSpecial xlPasteValues
          Application.DisplayAlerts = False
          .SaveAs Filename:="u:\CSV\Diepunch" &amp; sComp &amp; ".csv", FileFormat:=xlCSV, CreateBackup:=False
          Application.DisplayAlerts = True
          .Close False
  
      End With
  
    End If
  
  End If
  
  End Sub
  </code></pre>
  
  <p>I need this to work so every time there is a different number getting triggered by the one of the strings the right data is saved into the correct file. Anyone have any insight on how to fix this or tips? The help is appreciated.  </p>