Hey this may be a simple question but I am new to the Macro business any help would be greatly appreciated. Basically I am trying to Copy information from one sheet of my excel file which contains analyzed data and then paste that data to the sheet that has thousands of cells with raw data. The Copy would be based on a specific userID and then the paste would have to happen multiple times on the other sheet everywhere that the specific username is in the adjacent cell. I would then want this to run for an entire column. I will post a basic recorded Macro just to give an idea where this is to happen and also provide any information that could be useful:

Sub BusinessMove()
'
' BusinessMove Macro
'
' Keyboard Shortcut: Ctrl+m
'
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.Copy
Sheets("businesses").Select
Cells.Find(What:="70149726", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("raw data").Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(1, 0).Range("A1").Select


Application.CutCopyMode = False
Selection.Copy
Sheets("businesses").Select
Cells.Find(What:="70008363", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("raw data").Select
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
End Sub