macro to autofill values only

[tomdi469]

hello all

i am using code to fill down a column. the code works great if the cells only contain values and not formulas.if its a formula then it fills the formulas series when i just want the value copied down. my goal here is to fill the blank cells created when i use the subtotal function. i have tried the different autofill options to no avail.here is the code

Dim LastRow As Long
    
    LastRow = Sheet2.Cells(Sheet2.Rows.Count, 4).End(xlUp).Row
    
    Sheet2.Range("a4").AutoFill Destination:=Range("a4:a" & LastRow), Type:=4
    Sheet2.Range("c4").AutoFill Destination:=Range("c4:c" & LastRow), Type:=4
    Sheet2.Range("e4").AutoFill Destination:=Range("e4:e" & LastRow), Type:=4
    Sheet2.Range("f4").AutoFill Destination:=Range("f4:f" & LastRow), Type:=4
    Sheet2.Range("g4").AutoFill Destination:=Range("g4:g" & LastRow), Type:=4 

looking for that magic solution i so often find here

am using 2007 by the way

thanks much