match cell value to worksheet name and copy row data

[Fazila]

I have a problem very similar to the one posted on this thread https://www.mrexcel.com/forum/excel...-cell-value-worksheet-name-copy-row-data.html and the code supplied by mumps look very promising

Sub CopyRows()
    Dim bottomD As Integer
    bottomD = Range("A" & Rows.Count).End(xlUp).Row
    Dim c As Range
    Dim ws As Worksheet
    For Each c In Sheets("subjectnames").Range("A1:A" & bottomD)
        For Each ws In Sheets
            ws.Activate
            If ws.Name = c Then
                c.EntireRow.Copy Cells(Rows.Count, "A").End(xlUp)
    End If
        
        Next ws
        
        Next c
            
End Sub

The only problem is it does not appear to copy the row across or go on to the next c

any ideas?

Thanks

 

[Fazila]

any help at all with this?

 

[Fazila]

Sub CopyHeader()

 Dim wkSht As Worksheet
 Dim c As Range
 
  For Each wkSht In Sheets


    For Each c In Sheets("subjectnames").Range("A1:A23")
                   
            If c.Value = wkSht.Name Then


            wkSht.Range("A1").Copy Destination:=c.Offset(0, 1)
       
        End If
    Next c
    Next wkSht
    
     
End Sub

This looks good as well but this time it won't go to the next worksheet

 

[Fazila]

My mistake it is going to the next c but it is not pasting the row to row 1 please any help would be greatly appreciated

 

[Fazila]

realised the row was getting copied but at the end of the sheet rather than in row one changing cells to cells(1,1) helped resolve that