Copy Paste sheet Range to another worksheet

[jammer6_9]

Thanks that works! Seems that I missed to put the source range that I have declared.

try:
[VBA]Sub Create_Supplier()
Dim RngSup As Range
Dim FmlaSup As Range

Set FmlaSup = ActiveSheet.Range("A10:bc505")
Set RngSup = Sheets("Supplier_Distribution").Range("b10")
Range("Supplier_Clear").ClearContents
FmlaSup.Copy
RngSup.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Supplier_Distribution").Select
Range("a1").Select
End Sub
[/VBA]