Hi Pietro:

Dim i As Long
Sheets("Italian").Activate
For i = 1 To Rows.Count
If Cells(i, "C").Value = "" Then
Exit For
End If
Next
Cells(i, "C").PasteSpecial Paste:=xlPasteValues
Cells(i, "C").PasteSpecial Paste:=xlPasteFormats

The quantity of cells that are pasted depends upon the Copy:

Sub pietro()
Dim i As Long
Sheets("Italian").Activate
Range("A26:H26").Copy
For i = 1 To Rows.Count
If Cells(i, "C").Value = "" Then
Exit For
End If
Next
Cells(i, "C").PasteSpecial Paste:=xlPasteValues
Cells(i, "C").PasteSpecial Paste:=xlPasteFormats
End Sub


will copy 8 cells.
--
Gary''s Student - gsnu200749


"Pietro" wrote:

I need a code to activate a tab named "Italian",then to SELECT the first
empty row in column C ,then to paste special "Values and numbers
format",this command should paste an entire row starting from the selected
cell (the first empty cell in column C)
Is it possible?