Copy the values to another sheet without formatting

[sofas]

Welcome . How do I copy values without formats

Public Sub drewhx15()
    Dim Rng As Range
    
    With ThisWorkbook.Worksheets("feuil1")
        Set Rng = .Range("a5:d" & .Cells(.Rows.Count, "A").End(xlUp).Row)
    End With
    With Rng
        .AutoFilter Field:=2, Criteria1:="ok"
        .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Copy ThisWorkbook.Worksheets("Sh").Range("a12")
        .AutoFilter Field:=2, Criteria1:="yes"
        .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Copy ThisWorkbook.Worksheets("Sh").Range("e12")
        .Parent.AutoFilterMode = False
    End With
End Sub

 

[sofas]

And copy the new data down the old when copying again

 

[Coyotex3]

Unsure as to where you want to paste your code, but if you want to paste something without formatting you can try something like

Sub Sofas()
Dim Rng As Range

Set Rng = Range("A1:B11")

With Rng.Copy
Range("D1").PasteSpecial xlPasteValues
End With
End Sub

Book14
	A	B	C	D	E
1	Sofas	Sofas
2	Sofas	Sofas
3	Sofas	Sofas
4	Sofas	Sofas
5	Sofas	Sofas
6	Sofas	Sofas
7	Sofas	Sofas
8	Sofas	Sofas
9	Sofas	Sofas
10	Sofas	Sofas
11	Sofas	Sofas
Sheet1

Book14
	A	B	C	D	E
1	Sofas	Sofas		Sofas	Sofas
2	Sofas	Sofas		Sofas	Sofas
3	Sofas	Sofas		Sofas	Sofas
4	Sofas	Sofas		Sofas	Sofas
5	Sofas	Sofas		Sofas	Sofas
6	Sofas	Sofas		Sofas	Sofas
7	Sofas	Sofas		Sofas	Sofas
8	Sofas	Sofas		Sofas	Sofas
9	Sofas	Sofas		Sofas	Sofas
10	Sofas	Sofas		Sofas	Sofas
11	Sofas	Sofas		Sofas	Sofas
Sheet1

 

[sofas]

Unsure as to where you want to paste your code, but if you want to paste something without formatting you can try something like

Sub Sofas()
Dim Rng As Range

Set Rng = Range("A1:B11")

With Rng.Copy
Range("D1").PasteSpecial xlPasteValues
End With
End Sub

Book14
	A	B	C	D	E
1	Sofas	Sofas
2	Sofas	Sofas
3	Sofas	Sofas
4	Sofas	Sofas
5	Sofas	Sofas
6	Sofas	Sofas
7	Sofas	Sofas
8	Sofas	Sofas
9	Sofas	Sofas
10	Sofas	Sofas
11	Sofas	Sofas
Sheet1

Book14
	A	B	C	D	E
1	Sofas	Sofas		Sofas	Sofas
2	Sofas	Sofas		Sofas	Sofas
3	Sofas	Sofas		Sofas	Sofas
4	Sofas	Sofas		Sofas	Sofas
5	Sofas	Sofas		Sofas	Sofas
6	Sofas	Sofas		Sofas	Sofas
7	Sofas	Sofas		Sofas	Sofas
8	Sofas	Sofas		Sofas	Sofas
9	Sofas	Sofas		Sofas	Sofas
10	Sofas	Sofas		Sofas	Sofas
11	Sofas	Sofas		Sofas	Sofas
Sheet1

Thank you for your interest, because I want to filter the data and copy it under each other

 

[Joe4]

There is a another very similar question that was asked today that shows various options:

How to Copy values only, except formatting.

Hello every one. I have a code, who copied data range from input table to another tabs based on A row vales. code who make this copy: With Sheet1.[A1].CurrentRegion .Value = .Value .AutoFilter 1, ar(x), 7...

www.mrexcel.com