Copy and Paste rows

Hi Kapilrakh

Try this:

    Dim varRowSource as integer
    Dim varRowTarget as integer
    Dim varRowCount as integer

    'count the total number rows on the source sheet
    Sheets("Sheet3").Select
    varRowCount = Application.WorksheetFunction.CountA(Range("A:A"))

    'set loop counters to zero
    varRowSource = 2  'Start in row 2 of source sheet
    varRowTarget = 2   'Copy to row 2 of target sheet
        
    'starting with A2 on Sheet3, loop through all positions
    Do Until varRowSource = varRowCount + 1
        Cells(varRowSource, 1).Select
        Selection.Copy
        Sheets("Sheet1").Select
        Cells(varRowTarget, 1).Select
        ActiveSheet.Paste

        varRowSource = varRowSource + 1
        varRowTarget = varRowTarget + 1
    Loop

Hey mojo,

Thanks for your reply. But your code copies the values cell wise instead of the entire row. It take a lot of time plus I will have to repeat this code for every column. Please put the code to copy and paste entire row. The row no is a variable

To copy a row instead of the cell substitute

Cells(varRowSource, 1).Select and Cells(varRowTarget, 1).Select

for

Row(varRowSource).Select and Row(varRowTarget).Select