I am trying to duplicate a value from a cell to another cell, and then move
down a cell and copy into that cell aswell, taking into acount that counter1
0;

Heres the code;

counter1 = Range("L6")
contenta1 = Range("m6")
linenumb = 19
If counter1 0 Then
linenumb = linenumb + 1
Range("m" & linenumb).Select
ActiveCell.Value = Range("m6")
Range("l" & counter1).Select
ActiveCell.Value = counter1
counter1 = counter1 - 1
Else

End If

It doesnt do what I need it to do, and I think I must be having a blonde
moment because I can't see what;s wrong.
Can anyone help me please

Thanks in advance for all and any help

Steve