É necessário formatar a célula com 8 zeros, conforme imagem. O código está no arquivo anexo.

...e preciso de uma código em vba para deixar a data sem as barras...somement 01012018.....

Experimente após colar o código abaixo no módulo da planilha.

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim d As String
  If InStr(Target.Value, "/") = 0 Then Exit Sub
  d = Replace(Target.Value, "/", "")
  Target.NumberFormat = "@"
  Target.Value = d
End Sub

Desde já agradeço...vou testar aqui.....valeu