Inserting formulas changing date/time to number format?

[klutch]

Sub insertformulas()

Dim wb As Workbook: Set wb = ActiveWorkbook
With ActiveWorkbook
 Columns("G:G").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("g2").Formula = "=TEXT(E2,mm/dd/yy)&TEXT(F2,hh:mm:ss)"
Range("h2").Formula = "=TEXT(G2-G3,hh:mm:ss)"
Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("H2:H60")
    Range("H2:H60").Select
    Range("G2").Select
    Selection.AutoFill Destination:=Range("G2:G60")
    Range("G2:G60").Select
End With

End Sub

Hello, I wrote this macro to do 3 things.
1. insert 2 columns from column G
2. Insert a formula in both new columns (G&H)
3. Copy the formula down

What happens when I run it is columns e&f go from being dates and time format to number format
Ex. 6/27/2018 to 43278
Ex. 8:03:15 to .33559

Then cells G2 and H2 come up as #NAME (due to the change of columns e&f and the formula does not recognize the number format)
Columns G&H do not copy down.

What is causing the date/time format to change in columns e&f and how do I fix it?

Thanks in advance

 

[arthurbr]

Shouldn't the format be between double quotes ?
=TEXT(E2,"mm/dd/yy")&TEXT(F2,"hh:mm:ss")
(same for the next)

(I might be wrong knowing nothing of VBA)

 

[klutch]

yes but that produces a compile error "Expected: end of statement"

and when I run it, a syntax error is produced

 

[klutch]

Found the solution in this article http://dailydoseofexcel.com/archives/2004/04/16/worksheet-formulas-in-vba-part-i/
Very simple fix an now my code works perfect!
All I had to do was double quote what I already had.