This is how I would do it:

Sub CopyData()
'need online help to paste special
Dim SourceWB As Workbook
'Dim DestinationWB As Workbook
'Dim DestinationWS As Worksheet

Set SourceWB = Workbooks.Open("\\Wuslonfs03\share\product\Demand
Planning\DPDatabases\AbyA.xls")

'Set DestinationWB = ThisWorkbook
'With SourceWB
' Set DestinationWS = DestinationWB.Worksheets("Any by Any")
' With .Worksheets("Any by Any")
' .Range("A1:AC65536").Copy
' End With
'
'End With

SouceWB.Worksheets("Name of Worksheet to be copied"). _
Range("A1:AC65536").Copy
ThisWorkbook.Worksheets("Any by Any").Range("A1"). _
PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

Note: Sometimes I think that extra variables just get in the way, but I
don't really know your intent so you should use them as you see fit.

Tom