Copy and paste from a sheet to different sheet with matching sheet name

[Jyotirmaya]

I have a Excel file with Header from A1 to H1 in sheet "RAW DATA"
In the Column E of RAW DATA sheet I need to filter the data and paste into different sheet.
There are 25 type of data in column E and I have 25 sheets with that matching Text as sheet name
Presently I am copying data from Raw Data sheet and pasting in different sheets.
In other 25 sheets also I have the same header from A1 to H1, I want a VBA code to copy and paste data from A2 onwards in different sheet.

Kindly help with the code

 

[mrshl9898]

Try:

Sub CopyToSheets()

Dim ws As Worksheet
Dim ws2 As Worksheet
Dim lastrow As Long
Dim lastrow2 As Long
Dim rownum As Long
Dim ws2name As String

Set ws = Sheets("RAW DATA")
lastrow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row

For rownum = 2 To lastrow
    ws2name = ws.Cells(rownum, 5)
    Set ws2 = Sheets(ws2name)
    lastrow2 = ws2.Cells(ws2.Rows.Count, "E").End(xlUp).Row
    ws.Rows(rownum).Copy ws2.Rows(lastrow2 + 1)
Next rownum

End Sub

 

[Jyotirmaya]

Sub CopyToSheets()

Dim ws As Worksheet
Dim ws2 As Worksheet
Dim lastrow As Long
Dim lastrow2 As Long
Dim rownum As Long
Dim ws2name As String

Set ws = Sheets("RAW DATA")
lastrow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row

For rownum = 2 To lastrow
ws2name = ws.Cells(rownum, 5)
Set ws2 = Sheets(ws2name)
lastrow2 = ws2.Cells(ws2.Rows.Count, "E").End(xlUp).Row
ws.Rows(rownum).Copy ws2.Rows(lastrow2 + 1)
Next rownum

End Sub

Thank you so much its working, I have a sheet COUNT and in COUNT sheet from A1 to A25 I have the sheet names, I want to know how much rows copied to each sheets from RAW DATA sheet to different sheets in COUNT sheet in column B1 to B25 against the sheet names. Please help

 

[mrshl9898]

You're welcome

B1 =COUNTIF(INDIRECT(A1&"!E:E"),"<>")

 

[Jyotirmaya]

You're welcome

B1 =COUNTIF(INDIRECT(A1&"!E:E"),"<>")

Thanks its working but I am getting the result +1, for example I have 50 rows then its showing 51.

 

[mrshl9898]

Oops, forgot about the header.

=COUNTIF(INDIRECT(A1&"!E:E"),"<>")-1

 

[Jyotirmaya]

Thanks