Copiar solo datos de celdas sin formato..

hola como estas

te mando tu macro para rectificar y que solo copie datos sin el formato de la celda...

gracias

Sub clientes()
'Borra de gestion si situacion = servido
'Borra de clientes si no tiene nada en gestión y lo pasa a archivo
'Por.daM
Worksheets("CLIENTES").Select
ufil_clientes = ActiveCell.SpecialCells(xlLastCell).Row
ucol_clientes = ActiveCell.SpecialCells(xlLastCell).Column
Worksheets("GESTION").Select
ufil_gestion = ActiveCell.SpecialCells(xlLastCell).Row
ucol_gestion = ActiveCell.SpecialCells(xlLastCell).Column
Worksheets("ARCHIVO").Select
ufil_archivo = ActiveCell.SpecialCells(xlLastCell).Row
ucol_archivo = ActiveCell.SpecialCells(xlLastCell).Column
'inicia borrado en gestion
Worksheets("GESTION").Select
For i = 4 To ufil_gestion
If Cells(i, 7) = "SERVIDO" Then
'Si ya fue servido lo pasa a archivo y lo borra
num_cliente = Cells(i, 1)
Range(Cells(i, 3), Cells(i, 7)).Select
Range(Cells(i, 3), Cells(i, 7)).Copy
Worksheets("ARCHIVO").Select
ufil_archivo = ufil_archivo + 1
Cells(ufil_archivo, 8).Select
ActiveSheet.Paste
Worksheets("CLIENTES").Select
Range("A:A").Select
Set RangoObj = Selection.Find(What:=num_cliente, _
After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If RangoObj Is Nothing Then
MsgBox ("cliente no encontrado")
Else
k = RangoObj.Row
Range(Cells(k, 1), Cells(k, 7)).Select
Selection.Copy
Worksheets("ARCHIVO").Select
Cells(ufil_archivo, 1).Select
ActiveSheet.Paste
'Sheets("DATOS").Select
End If
Worksheets("GESTION").Select
ActiveCell.EntireRow.Delete
ufil_gestion = ActiveCell.SpecialCells(xlLastCell).Row
'Borra de SEÑALES
Worksheets("SEÑALES").Select
Range("A:A").Select
Set RangoObj = Selection.Find(What:=num_cliente, _
After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not RangoObj Is Nothing Then
Cells(RangoObj.Row, 1).Select
ActiveCell.EntireRow.Delete
End If
Do While Not RangoObj Is Nothing
Set RangoObj = Selection.FindNext(After:=ActiveCell)
If Not RangoObj Is Nothing Then
Cells(RangoObj.Row, 1).Select
ActiveCell.EntireRow.Delete
End If
Loop
Worksheets("GESTION").Select
End If
Next 'fin gestion
'inicia clientes
Worksheets("CLIENTES").Select
For i = 4 To ufil_clientes
Cells(i, 1).Select
num_cliente = Cells(i, 1)
Worksheets("GESTION").Select
Range("A:A").Select
Set RangoObj = Selection.Find(What:=num_cliente, _
After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
Worksheets("CLIENTES").Select
If RangoObj Is Nothing Then
ActiveCell.EntireRow.Delete
End If
Next
End Sub
'***Macro***