Förstår inte exakt vad du vill göra, men här har du lite att leka med:
Sub Skapa_datum()
Dim sSökväg As String
Dim sFil As String
Dim MålCell As Range
Set MålCell = Sheets("Medelvärdesberäkning").Range("A2") ' Första målcellen
sSökväg = "C:\Users\Desktop\data\autoimport\"
sFil = Dir(sSökväg & "*.*") ' söker igenom sSökväg efter alla filer (*.*)
Do While sFil <> "" ' loopar så länge "dir" returnerar filer
MålCell.Value = FileDateTime(sSökväg & sFil) ' Skriver in filens datumet i målcellen
Set MålCell = MålCell.Offset(1, 0) ' flyttar målcellen ett steg ner
sFil = Dir ' nästa fil enligt "DIR"
Loop
End Sub