Paste Entire Row if Cell Value Matches Sheet Name - Resize(?) and Offset on Destination Sheet

[WildBurrow]

I'm having extreme difficulty figuring out how to resize (I think that is the term I'm looking for) and offset pasted information.

I'm using column ("A") from the source sheet ("Summary") to match tab names in the workbook. I found code (see below) that will copy and paste accordingly; however, I need to accomplish the following:
1) Only copy columns ("B:G") from source sheet ("Summary"); this means omitting data in column ("A").
2) Paste the data into columns ("J:O"), second row on the destination sheet.

Can anyone help me address this?

Sub IncToCntySheet()

Application.ScreenUpdating = False

Dim rs As Worksheet
Set rs = Worksheets("Summary")

For r = 1 To rs.Range("A" & Rows.Count).End(xlUp).Row
wsName = rs.Cells(r, "A")

If WorksheetFunction.IsErr(Evaluate("'" & wsName & "'!A1")) = "False" Then
    wr = Worksheets(wsName).Range("A" & Rows.Count).End(xlUp).Row + 1
    rs.Rows(r).Copy Destination:=Worksheets(wsName).Range("A" & wr)
 
End If

Next r

MsgBox "Incident List Copied to Sheet"

Application.ScreenUpdating = True

End Sub

'SOURCE:  https://www.mrexcel.com/board/threads/copy-rows-based-on-cell-value-to-match-with-tab-name.1167970/

 

[Fluff]

Paste the data into columns ("J:O"), second row on the destination sheet.

Do you mean paste the data starting in J2?

 

[WildBurrow]

Do you mean paste the data starting in J2?

Yes

 

[Fluff]

Ok, how about

Sub IncToCntySheet()

Application.ScreenUpdating = False

Dim rs As Worksheet
Set rs = Worksheets("Summary")

For r = 1 To rs.Range("A" & Rows.Count).End(xlUp).Row
wsName = rs.Cells(r, "A")

If Evaluate("isref('" & wsName & "'!A1)") Then
    rs.Range("B" & r).Resize(, 6).Copy Worksheets(wsName).Range("J2")
 
End If

Next r

MsgBox "Incident List Copied to Sheet"

Application.ScreenUpdating = True

End Sub

 

[WildBurrow]

Ok, how about

Sub IncToCntySheet()

Application.ScreenUpdating = False

Dim rs As Worksheet
Set rs = Worksheets("Summary")

For r = 1 To rs.Range("A" & Rows.Count).End(xlUp).Row
wsName = rs.Cells(r, "A")

If Evaluate("isref('" & wsName & "'!A1)") Then
    rs.Range("B" & r).Resize(, 6).Copy Worksheets(wsName).Range("J2")
 
End If

Next r

MsgBox "Incident List Copied to Sheet"

Application.ScreenUpdating = True

End Sub

Fluff,

That did the trick! I simply could not figure out how to address the copy range but I see that you simply chose:

rs.Range("B" & r).copy 
'rather than using;
rs.Rows(r).Copy

Then, of course, the resize language, which was also vexing me. My previous attempts to alter the original code threw a slew of failures.

Thank you ever so much.

 

[Fluff]

Glad to help & thanks for the feedback.

 

[JakariKryze]

Glad to help & thanks for the feedback.

Copy rows based on cell value to match with tab name when you do not have a set location

I have a master list worksheet called "BlackBoard" that this information comes from. All rows in column A with the 12.01.21 dates need to be copied to the worksheet "12.01.21". This needs to be done for each day of the month so 31 worksheets. I am new to this and i am stuck trying to...

www.mrexcel.com

Could you help me on this question?

 

[Fluff]

@JakariKryze Please STOP duplicating your question and/or posting to other threads asking for help with yours.