Kopieren Formel und Formatierung

Question

Wie kann ich den unteren nur die Formel kopieren und Formatierung nicht den Text?

Sub Loop_InsertRowsandFormulas() 

Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Risk Input Sheet") 
Dim vRows As Long 
Dim lastCol As Long 
Dim firstRow As Long 

firstRow = InputBox("Enter Row To Start Insert From.") 
vRows = InputBox("Enter Number Of Rows Required") 

If firstRow = 0 Or vRows = 0 Then Exit Sub 
Debug.Print firstRow 
IngA = ws.Cells(5, ws.Columns.Count).End(xlToLeft).Column 
For Myloop = 1 To vRows 
    ws.Range("A" & (firstRow + Myloop)).EntireRow.Insert 
    ws.Range("N" & (firstRow) & ":AW" & (firstRow + Myloop)).FillDown 
Next 

End Sub 

Answer 1

For Each ShipWs In ShipmentWbObj.Worksheets 
    If ShipWs.name <> "SAMPLE_FORMAT" And ShipWs.name <> "Transportercodes" Then 
     Set ShipWsUsedrange = ShipWs.UsedRange 
     Set DataRange = Application.Intersect(ShipWsUsedrange, ShipWsUsedrange.Offset(1, 0)) 
     If Not DataRange Is Nothing Then 
      SampleFormat.Rows(2).Copy 
      DataRange.PasteSpecial xlPasteFormats, xlPasteSpecialOperationNone, False, False 
      DataRange.PasteSpecial xlPasteFormulas, xlPasteSpecialOperationNone, False, False 
      Application.CutCopyMode = False 
     Endif 
    Endif 
Next