Conditionally copy paste the data between sheets

Thnx Neeraj Sir for ur great support

You're welcome Sachin!

You really did not need to loop. This one liner could have done the same job.

Sub copymultiple()
Sheet5.Range("A1").CurrentRegion.EntireRow.Copy Sheet4.Range("A1").Resize( _
    (Sheet2.Range("A1").CurrentRegion.Rows.Count - 1 + _
    Sheet3.Range("A1").CurrentRegion.Rows.Count - 1) * _
    Sheet5.Range("A1").CurrentRegion.Rows.Count)

End Sub

Select allOpen in new window

Thnx Saqib Sir for the great info and thnx for the support