This is going to be a really obvious solution, but I currently have the code working- but it pastes to the next available row.
I am trying to get it to paste into cell B2 and always there (so clearing the column first)...any ideas? The code is this:
Cheers
Strud
I am trying to get it to paste into cell B2 and always there (so clearing the column first)...any ideas? The code is this:
Code:
Sub Copy_Parent()
Dim i As Long, x As Range
With Sheets("Sheet1")
For i = 2 To .Range("b" & Rows.Count).End(xlUp).Row
If .Cells(i, "a").Value = Sheets("Sheet2").Range("H5") Then
.Cells(i, "b").Copy
Sheets("Sheet2").Range("b" & Rows.Count).End(xlUp)(2).PasteSpecial _
Paste:=xlPasteValues
End If
Next
End With
End SubStrud