Help me in editing the macro

[kishoremcp]

I have the following macro with me which is letting me copy data till the next blank row.

Public Sub CopyRows() 
    Sheets("Raw Data").Select 
    ' Find the last row of data 
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row 
    ' Loop through each row 
    For x = 2 To FinalRow 
        ' Decide if to copy based on column H 
        ThisValue = Cells(x, 1).Value 
        If ThisValue <> 0 Then 
            Cells(x, 1).Resize(1, 33).Copy 
            Sheets("English").Select 
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 
            Cells(NextRow, 1).Select 
            ActiveSheet.Paste 
            Sheets("Raw Data").Select 
        ElseIf ThisValue <> 0 Then 
            Cells(x, 1).Resize(1, 33).Copy 
            Sheets("Hindi").Select 
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 
            Cells(NextRow, 1).Select 
            ActiveSheet.Paste 
            Sheets("Hindi").Select 
        End If 
    Next x 
End Sub  

But i need it like if it founds a blank row in the raw data sheet it should copy the data from the next blank row to another sheet.
I mean, it should start the validation and copy the data first to English sheet till A13. Next it found blank row. so again the data from A17 to A29 to be copied in Hindi and the next rows to be copied to English & Hindi.

Please help

[arlu1201]

Kishore,

This is a duplicate post and as such does not comply with Rule 5 of our forum rules. This thread will now be closed, you may continue in your other thread.

Thread Closed.