copy a range with formulas and paste it

[bhandari]

i have a list C4:H82

Click the command button to hide the C:H and as well as create J4:N82 format which is copy from C4:H82 it have formulas and values,which i need to paste only formulas and leave the values (i mean Replace the value with red color Blank cell..rest of the place need to fill with formulas)

is it possible with macro

 

[lhartono]

Try this,

[COLOR=#0000cd]Private Sub CommandButton1_Click()
    Dim cell As Range
    
    With Sheets("Sheet1")
        .Columns("C:H").EntireColumn.Hidden = True
        .Range("C4:H82").Copy Destination:=.Range("J4")
        For Each cell In .Range("J4:N82").Cells
            If (Not cell.HasFormula) Then
                cell.Font.Color = RGB(255, 0, 0)
            End If
        Next
    End With
End Sub[/COLOR]

 

[bhandari]

cell.Font.Color = RGB(255, 0, 0)
it is not woking