title: Fill in Column with values from another column if statement(s)
body: <p>I currently have a VBScript that takes in an Excel document and re-formats it into another Excel document that's more organized.
  This code must also look at the values of the CATALOG column ("B1") and place it in the Drawings column ("M1") ONLY if the beginning of the value starts with "EDASM", "EDBSM" etc., yet the "ED" prefix must be eliminated when it's moved.</p>
  
  <p>For example, Catalog number EDF12-01114 would result in nothing being placed in the drawings column, but with EDSM10265, we would need SM10265 to be placed in the drawings column (drop the "ED").</p>
  
  <p>All I've got so far is this, which isn't even complete:</p>
  
  <pre><code>Set objRange = objWorkSheet.Range("M1").EntireColumn
  IF
      objWorkSheet.Range("B1").Row = "EDF*" THEN 'Maybe correct-ish? Not sure about syntax
      objRange = Null
  Else 
      objRange = ("B1") 'Totally an awful guess, but I have no clue what to put here
  End If
  </code></pre>
  
  <p>I've seen similar code that has loops and whatnot, but none of them seem to be doing what I need to be done. Thank you!</p>
  
  <p><strong>EDIT: Current code based off of BruceWayne's. Still doesn't return anything in Excel datasheet's Drawing column, but it looks like it's closer...</strong></p>
  
  <pre><code>Sub move_Text()
  Dim lastRow, nextRow, cel , rng 
  
  lastRow = Cells(Rows.Count, 2).End(xlUp).Row ' Since your Col. B is the data, let's find that column's last row
  Set rng = Range(Cells(1, 2), Cells(lastRow, 2))
  
  nextRow = 1
  
  For Each cel In rng
  If Left(cel.Value, 3) &lt;&gt; "EDF" Then
      Cells(nextRow, 13).Value = Mid(cel.Value, 3, Len(cel.Value) - 2)
      nextRow = nextRow + 1
  End If
  Next
  
  End Sub
  </code></pre>
  
  <p><strong>Another edit!</strong>
  Catalog column is now "C", not "B". Also, I have two header rows, so the first catalog number is located in "C3". </p>
  
  <p>Thanks again! We're getting closer.</p>
  
  <p>Here's the Google Drive files: <a href="https://drive.google.com/folderview?id=0B2MeeQ3BKptFYnZfQWpwbTJxMm8&amp;usp=sharing" rel="nofollow">https://drive.google.com/folderview?id=0B2MeeQ3BKptFYnZfQWpwbTJxMm8&amp;usp=sharing</a></p>
  
  <p><strong>IMPORTANT TO REMEMBER</strong></p>
  
  <p>In the Google Drive files: <strong>TestScript.vbs</strong> is the file where all the code is. When the script is run, select <strong>ExcelImport</strong>. That should return <strong>FinalDocument</strong></p>