A2, Sheet 2 = last cell in Column A sheet 1 plus 1.

[andydtaylor]

Hi,

I had a go and this - but it doesn't work! Not really sure why. Please can you suggest what I should be writing to make this work?

Thanks,

Andrew

Sub SUR_Add_One()

Sheets("End_OF_DAY_FILE").Select

Dim last_number As Long
Dim next_number As Long
Set last_number = _
Range("A65536").End(xlUp).Select
next_number = last_number + 1

Sheets("START_OF_DAY_FILE").Select
Range("A2").Select
ActiveCell.FormulaR1C1 = next_number

End Sub

 

[andydtaylor]

Sorted!

=OFFSET(END_OF_DAY_FILE!A1,COUNT(END_OF_DAY_FILE!A:A),0)+1

 

[Scott Huish]

No need for a macro:

=LOOKUP(9.99999999999999E+307,End_OF_DAY_FILE!A:A)+1