Hi - I'm having problems populating a cell with the current value of a
variable. Basically, I'm trying to do the following:

- set the variable to the value within a specific cell
- paste over a section of a the sheet which inlcudes the cell which was used
to set the variable value in the steop above with blank/null cells
- populate the original cell used to set the variable value with the
variable value

Below is the code I have written which is not working:

Sub clearcontent()

Dim testvalue

Sheets("Frequency Input").Select
range("J2").Select
Set testvalue = Selection

Sheets("Header").Visible = True
Sheets("Header").Select
range("A:G").Select
Selection.Copy
Sheets("Frequency Input").Select
range("J:P").Select
ActiveSheet.Paste

range("J2").Select
Selection = testvalue

Sheets("Header").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Visible = False

End Sub