Macro to copy and delete last row in a sheet

[raider33]

Hello everyone.

I have a following problem with excel macro:

Every day I have to copy data from the first row (B1:DB1) in to first empty row in the sheet (for example B25:DB25).

Then I have to clear the data for the previous day (data in range B24:DB24 in this example. I filled it with data from the first row yesterday). But , I have to leave the the data in a cell A24 i.e. I have to clear the data only from B24:DB24. (There are dates in column "A" that I need)

I am only a begginer with VBA so I looked on the net I found this macro:

Worksheets("Daily data").Range("B1:DB1").Copy     Worksheets("Daily data").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _         xlNone, SkipBlanks:=True, Transpose:=False         Application.CutCopyMode = False                        

Worksheets("Daily data").Cells(Rows.Count, "B").End(xlUp).Offset(-1, 0).EntireRow.ClearContents

However, this macro deletes everything from the row I filled up yesterday, inlcuding the data in column A (it is row 24 in this example).

How can I modify it so it would clear data only from the B24:DB24 range ?

Any help is welcome.

With Regards,

Eriol

 

[raider33]

bump

 

[raider33]

anyone ?