Pfthb

hoping to get extra eyes on this - I've only dabbled with VBA on personal projects before, but have been successful in the past! This one is a doozy though, never done anything so complex. I'm working with a spreadsheet - first tab is the master list, with multiple questions on it - the following tabs are different questionnaires that use the questions in different sequences.

I'm trying to make a macro that will search through the other tabs and compare the "Q" column, which holds the question #. If a tab has a Q cell that matches to the master list, I'd like to copy A#:Q# from the master list row and paste it on that sheet.
With a lot of searching on this site, here's how far I got:

Sub Refresh()

Refresh Macro

Keyboard Shortcut: Ctrl+r
 Dim wM As Worksheet, wR As Worksheet
 Dim r1 As Range, R2 As Range
 Dim cel1 As Range, cel2 As Range
 Dim LastRow As Long
 Application.ScreenUpdating = False

Set wR = ActiveSheet
Set wM = ActiveSheet.Next

With wR
 Set R2 = .Range("Q1", .Cells(.Rows.Count, .Columns("Q:Q").Column).End(xlUp))
End With

With wM
 Set r1 = .Range("Q1", .Cells(.Rows.Count, .Columns("Q:Q").Column).End(xlUp))
End With

LastRow = 1


On Error Resume Next
For Each cel1 In r1
 With Application
 Set cel2 = .Index(R2, .Match(cel1.Value, R2, 0)) 'find match in active page
 If Err = 0 Then
 copyResult cel2, LastRow 'copy result to next page
 End If
 Err.Clear
 LastRow = LastRow + 1
End With
Next cel1

End Sub

Sub copyResult(cel As Range, row As Long)
 Dim ws As Worksheet
 Set ws = ActiveSheet.Next

 cel.EntireRow.Copy ws.Cells(row, 1)

End Sub

I'm stuck in two places:
1. trying to find a way to trigger the next sheet for "wM" to get updated
2. getting the copyResult section to copy just part of the row - there's a note section on each tab that shouldn't get overwritten. I tried doing cel.Range("A" & cel.row:"Q" & cel.row).Copy, but it didn't work.

Open to all and any thoughts - thanks in advance!