Nhờ giúp đỡ đoạn code (1 người xem)

[thang24]

Mình đang làm file tổng hợp gom các sheet vào sheet data tuy nhiên đoạn mã lại đi copy toàn bộ cả công thức.
Nhờ anh chị giúp đỡ lại đoạn code sao cho chỉ copy toàn bộ sheet con và paste dưới dạng value.

Code:
Sub DATA()
Dim WSh As Worksheet
Dim dong As Long
Sheets("DATA").Cells.Clear
Sheets("DATA").Range("A10:s10") = Sheets("KV").Range("A10:s10").Value
For Each WSh In ThisWorkbook.Worksheets
If WSh.Name <> "DATA" And WSh.Name <> "List" And WSh.Name <> "View" And WSh.Name <> "Tonghop" Then
dong = Sheets("DATA").Range("A65536").End(xlUp).Row + 1
Sheets("Data").Cells(dong, "S").Resize(WSh.[A10].CurrentRegion.Offset(2).Rows.Count).Value = WSh.Name
WSh.[A10].CurrentRegion.Offset(2).Copy Destination:=Sheets("DATA").Range("A" & dong)

End If
Next WSh

End Sub

cảm ơn.

 

[Ba Tê]

Sao anh không thử giúp em đoạn code xóa toàn bộ dữ liệu data trước khi chạy như vậy mình đỡ phải cứ mỗi lần chạy lại là phải vào format lại các cột E F G

1. Trong code có dòng thứ 4 xóa 1000 dòng, 25 cột của sheet DATA trước rồi còn gì nữa?

.[A10].Resize(1000, 25).ClearContents

2. Format cả cột E,F,G chỉ 1 lần thôi, mắc gì mà mỗi lần chạy phải Format "Chời"?
Híc!