i've got a list of possible labels in column A, and a list of present
labels in column J. Now I want to copy the data from column J to
column b in the row corresponding to the appropriate label (in column
A). Here's what i have so far

Sub Macro1()
Dim rngA As Range
Dim rngB As Range
Dim A As Range
Dim LrowA As Long
Dim LrowB As Long
LrowA = Cells(Rows.Count, "I").End(xlDown).Row
Set rngA = Range("I7:I" & LrowA)
LrowB = Cells(Rows.Count, "A").End(xlDown).Row
Set rngB = Range("A7:A" & LrowB)
For Each A In rngA
myCell = A.Value
A.Select
ActiveCell.Offset(0, 1).Activate
Selection.Copy
rngB.Select
Selection.Find(What:=A.Value, After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Activate
Selection.Paste
Next A
Application.DisplayAlerts = True

End Sub


i'm pretty new to this, so i don't even know if this is the best way to
try and do this, but it keeps flagging the Selection.Paste line with a
runtime error 438, Object doesn't support this property or method. Any
ideas?

oh, and there's some other code that i left out that just parses and
transposes the data, that's why i set the ranges where they are. it's
working so i left it out, but i can put it in if it'd help