macro to Copy/Paste Cells based on value in a column

[sheiono]

Doing a favour for a friend and I am stuck...there is usually something I can find online to help me but I have looked for several hours and come up with zip...

In the macro below I would like to copy and paste rows (columns A though H only) from one worksheet ("Tracker")to the same columns on another ("Carpenter"), not the entire row. What I have is great for copy/pasting the entire row...

Am I furnishing enough information? I would appreciate any help out there!

Sub UpdateCarpenter()
Set i = Sheets("Tracker")
Set e = Sheets("Carpenter")

Dim d
Dim j
d = 3
j = 4

Do Until IsEmpty(i.Range("B" & j))

If i.Range("B" & j) = "Carpenter" Then
d = d + 1
e.Rows(d).Value = i.Rows(j).Value


End If
j = j + 1
Loop
End Sub

 

[texasalynn]

try this

e.Range(Cells(d, "A"), Cells(d, "E")).Copy Destination:=i.Range(Cells(j, "A"), Cells(j, "E"))
in place of
e.Rows(d).Value = i.Rows(j).Value

 

[sheiono]

try this

e.Range(Cells(d, "A"), Cells(d, "E")).Copy Destination:=i.Range(Cells(j, "A"), Cells(j, "E"))
in place of
e.Rows(d).Value = i.Rows(j).Value

Thanks very much for taking the time to help, I tried that code and got the 'ol "400" error message. Not sure if you are comfortable with my sending you the file, but I would appreciate any other ideas you may have.

 

[texasalynn]

ok so I changed it some to this

Sub UpdateCarpenter()
i = "Tracker"
e = "Carpenter"
Dim d
Dim j
d = 3
j = 4
Do Until IsEmpty(Sheets(i).Range("B" & j))
If Sheets(i).Range("B" & j) = "Carpenter" Then
d = d + 1
Sheets(i).Range("A" & j & ":E" & j).Copy Destination:=Sheets(e).Cells(d, "A")

End If
j = j + 1
Loop
End Sub