Copy and Paste loop

[Pamella]

I'm trying to do a relatively simple copy and paste.

I am Copying 3 cell values, and also assigning a cell value to a string variable,
once all done go to Output sheet and paste strDer variable value to B2 and value of smatch to B3, B4, B5
Then loop to next row.

I need help with the pasting bit.

Dim smatch as range
Dim strDer  as string

strDer = smatch.Offset(0, -1).Value
copval=   ActiveCell.Resize(, 3).Copy

[mana]

Sub test()
    Dim r As Range
    Dim m
    Dim n As Long

    n = 2
    For Each r In Rows("11:20")
        m = Application.Match("testing", r, 0)
        If IsNumeric(m) Then
            Cells(n, "B").Resize(, 3).Value = r.Cells(m).Resize(, 3).Value
            n = n + 1
        End If
    Next

End Sub

[Pamella]

my lngMyrow is dim as long. I'm trying to use like this

Range(lngMyRow).Resize(, 3).Value

but getting error
and I need to assign to a variable so i can paste later.

[mana]

Range("E" & lngMyRow).Resize(, 3).Value


Cells(lngMyRow, "E").Resize(, 3).Value

[Pamella]

"E"? I dont know which column it will be

[mana]

>"E"

It's just an example

[mana]

Could you give me sample data?

[Paul_Hossler]

I'm trying to do a relatively simple copy and paste.

I am Copying 3 cell values, and also assigning a cell value to a string variable,
once all done go to Output sheet and paste strDer variable value to B2 and value of smatch to B3, B4, B5
Then loop to next row.

I need help with the pasting bit.

Q: Do you want to keep on making the copies a long column in B, i.e. B2:B5 for first copy, B6:B9 for next, etc.?

Q: Where does smatch get a value

Q: How is the input data structured; A1:Z26 on Sheet1? Is Row 1 headers?

Sample workbook with the before and after would be helpful