Display A Progress Bar Using A The Userform

The code I'm trying to execute is given below

Public Sub datafill()

Sheets("Bloomberg Data and Formula").Activate

' Creates prompt to input date to be checked

Dim InputAnswer As Date

InputAnswer = InputBox( _
prompt:="Enter NAV date for verification against Bloomberg in the format DD/MM/YYYY", _
Title:="Date Input Screen", _
Default:="DD/MM/YYY")

Range("C1").Value = InputAnswer

' Clear out previous day's data

Range("A6 : Z6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A6").Select