I was trying to copy a sheet range to another worksheet with the below code. It seems to work if there is more than 1 visible row to be copied but when its just only one visible row, it copy to the entire target range as duplicates.
[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")
Application.GoTo Reference:="Supplier_Clear"
Selection.ClearContents
FmlaSup.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Supplier_Distribution").Select
Range("a1").Select
End Sub
[/VBA]