VBA code mbt kopiëren en plakken aanpassen

[Afe1]

Hallo,

In onderstaande macro wordt een range van 1 file met verschillende bladen gekopieerd 

naar een andere file waar al die gegevens onder elkaar staan.

Nu wordt alles gekopieerd en de opmaak overschreven, dus zou ik enkel de waarden

+ de Formules en getalnotaties willen kopiëren ipv alles zoals :

Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

Kan iemand mij hier de oplossing voor geven?

Alvast bedankt.

 

' Macro1 Macro

' Sneltoets: Ctrl+m

    Dim varCellvalue As String

    varCellvalue = Range("T11").Value
    ChDir "C:\Users\Gebruiker\OneDrive\Quinntra"
    
    Workbooks.Open Filename:=varCellvalue
    
   
    Windows("QuinntraTransfert.xlsm").Activate
    
     With Workbooks(varCellvalue).Sheets(1)
    Set a = .Cells.Find("Datum")
    For Each sh In ThisWorkbook.Sheets
    sh.Range("B2:K" & Range("a50").End(xlUp).Offset(0, 0).Row).Copy .Cells(a.Row, 3).Offset(2)
    Set a = .Cells.FindNext(a)
     Next
 End With
 
End Sub