Macro autofill to last column

[excelgs]

New to Macros.
Trying to autofill format only from E1 to the last column (row1 still).
Tried this but it didn't work:

Selection.AutoFill Destination:=Range("E1: & LastColumn & 1"), Type:=xlFillFormats

I have this above it:

Dim sht As Worksheet
Dim LastColumn As Long
Set sht = ThisWorkbook.Worksheets("Sheet1")
Dim DataRange As Range
LastColumn = Cells(2, Columns.Count).End(xlToLeft).Column

I've copied and pasted from several places at this point so that might all be wrong for what I'm trying to do.
Please help, thanks.

 

[Osvaldo Palmeiro]

Hi.
Try:

Sub FillFormat()
 Dim LastColumn As Long
 LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
 Range("E1").AutoFill Destination:=Range(Range("E1"), Cells(1, LastColumn)), Type:=xlFillFormats
End Sub

 

[excelgs]

Thanks it worked.