Identifying the bugs in VBA

[Balqis]

I would highly appreciate helping me in identifying the bugs in the below:

Range("A1").Select
Selection.End(xlDown).Select
' Range("A3267").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.Close SaveChanges:=True
Application.CutCopyMode = False
Range("A1").Select

Thanks

 

[Joe4]

Welcome to the Board!

It would be helpful if you could explain the data you are working with (how it is structured) and exactly what it is you are trying to do (in plain English).