copying cells from source to destination values

[sapxl]

Hello Friends,

How r u all.. hope all u r well...

I have a query which relates to copying data from one sheet to another sheet within a workbook with vba... while copying from source-sheet cells to the destination, it is getting copied, but the formula (only values need to copy instead of formula) and format of the source is also get copied, format need not be source, it would be of destination (i.e, without format copying). can anyone help me on this. Appreciate your help in this regard.

Thanks,

vba code :

Sub copytoinvoce()

'Range.Copy to other worksheets
    Worksheets("Sheet6").Range("D8").Copy Worksheets("Invoice").Range("D7")
    Worksheets("Sheet6").Range("F8").Copy Worksheets("Invoice").Range("D8")
    Worksheets("Sheet6").Range("H8").Copy Worksheets("Invoice").Range("D9")
    Worksheets("Sheet6").Range("J8").Copy Worksheets("Invoice").Range("D10")
    Worksheets("Sheet6").Range("L10").Copy Worksheets("Invoice").Range("F14")

 

    Range("F14").Select
    Selection.Copy
    Range("F14").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
   
    'Disable marching ants around copied range
    Application.CutCopyMode = False
    
    End Sub

-------

copybtwsheets vba.xlsm
	C
9
Sheet6

copybtwsheets vba.xlsm
	I
8
Invoice

 

[sapxl]

can we trim the first part of the name before underscore, and copy that part into the invoice sheet D7 cell.