How to copy unique, changing value and paste in another sheet VBA
<p>I'm pretty new to VBA and am trying to see if I can create a code for a certain process.  I have a spreadsheet with a few unique identifiers and company names in the first row (Company A, Company B, etc).  In the following columns, there are a few other columns such as location, key contact, etc, that correspond to each company.  Lastly, there is a column for "comments".  These comments get updated fairly regularly.  </p>

<p>What I'm trying to do is create a macro that will allow me to find the comment for the unique company, copy (or cut) it and paste it in a "historical comments" sheet in the same workbook, so that I can maintain a record of the past comments.  Is there a way to create a macro to do this?  I've created something that, if i put in the exact Cell Name , it will copy that comment and paste it but I wanted to see if I could designate one cell where I could type in the Company Name, and the macro would look at what is in that cell and then copy the corresponding comment, paste it in the back sheet, and then clear the cell so that I can input a new comment.  I have no idea if this is even remotely possible, but any help would be greatly appreciated! </p>

<pre><code> Sub Range_copy()
 Dim cellwant As Variant
 Dim cellhistory As Variant
 Dim LRow As Variant
 Dim Account As Variant


 Worksheets("AAG").Select

 Worksheets("AAG").Range("I3").Select
 cellwant = Selection.Value
 FindString = Sheets("AAG").Range("B5:B65").Value

 cellwant = Selection.Value

 Worksheets("AAG").Range(cellwant).copy
 Worksheets("Sheet2").Activate

 Worksheets("Sheet2").Range("A1").Select
</code></pre>