The whole code that i am using is
ThisWorkbook.Sheets("Stock List").Range("E2").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C2:D2").Select
Selection.ClearContents
Range("E2").Select
ActiveCell.Offset(1, 0).Select
Do Until ActiveCell = ("")
Selection.Copy
ActiveCell.Offset(0, -3).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveCell.Offset(0, 1).Select
Selection.ClearContents
ActiveCell.Offset(0, 1).Select
Selection.ClearContents
ActiveCell.Offset(1, 1).Select
Loop
End Sub
and the error msg is
Run-time error 1004
Select method of range class failed.