If you want to create a code where i can copy entire row into separate worksheet depending on it's data then i would suggest you to use the below code and have a check for the same hope it works
Code:
Public Sub patxlb()
Dim lng_Dest_Row As Long
Dim str_Dest_Sht As String
For i = 2 To Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Rowd
str_Dest_Sht = Sheets("Data").Cells(i, "G").Value
lng_Dest_Row = Sheets(str_Dest_Sht).Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Data").Rows(i).Copy Destination:=Sheets(Sheets("Data").Cells(i, "G").Value).Cells(lng_Dest_Row, 1)
Next i
End Sub
Bookmarks