Duplicate Sheet

[pulsarman605]

I have an excel file that imports data from SQL everytime it opens, I then have second sheet, on which I want the same data but I want to add a row.

I was using the simple =sheet1!A1 command copy and pasting. But.... Obviosuly the size of the data changes all the time and also if I try to paste to the "entire" sheet. It just barfs at me ;-)

So I am looking for a formula or vba that will only duplicate a cell that has data to another sheet.

Anyone??

Cheers

[Kamboj]

use this code

Dim a, b, sel_rg
Sheet1.Activate
a = Cells(1, Columns.Count).End(xlToLeft).Column
b = Cells(Rows.Count, 1).End(xlUp).Row
sel_rg = "A1:" & Cells(1, a) & b
    Range(sel_rg).Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("A1").Select
    ActiveSheet.Paste