I have a macro in which I have the following Lines :

Public Sub CommandButton1_Click()

Range("AF4").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Range("af3").Copy Selection

Calculate

End Sub


The cell AF4 contains the function :
=IF(LEFT($A3,1)="A",VLOOKUP($A3,STKD,AF$2,0),"---")

It is design to compare the field at column A to a database named "STKD" and
place the info on the rows below AF4.

When I execute this Macro, it does not calculate ( I chose Manual Update on
the options).

Can anyone Help ?