VBA transit the formula

[Maci3j]

Hi everyone,

I would like to ask you for help.
I recorded a macro which does three things:
- column A: transits the formula,
- column A, J, K, N: colors the column names in red,
- column F, G, H, J, K, L, M, N, O: changes the format to date.


This is the macro:

Sub OTIF()
'
' OTIF Macro
'

'
Sheets("OTIF").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("A2:A1000")
Range("A2:A1000").Select
Columns("F:O").Select
Selection.NumberFormat = "m/d/yyyy"
Range("A1,J1:K1,N1").Select
Range("N1").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets("Instructie").Select
End Sub


The issue:
I would like to adapt it so the formula in column A6 will be transited to A7 if cell B7 is not empty.
Could you please help me with it?

Thank you in advance!

 

[Zot]

yes it works.
many thanks!!

Thanks for update