Hi,

I tidied you recorded code up a bit and it should now do what you want

Sub Sonic()
With Range("J23790")
.Value = 1
.NumberFormat = "0"
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Copy
End With

With Range("D2:D23501")
.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End With

With Range("D2:D23501").Font
.Name = "Tahoma"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

End Sub


Mike

"fgwiii" wrote:

I have modified some existing code and for some reason when the paste happens
instead of only pasting to the "D" column, it is pasting to multiple columns
and throwing my data out of format. Can you please tell me what is wrong and
how do I fix it?

ActiveWindow.LargeScroll Down:=1
Range("J23790").Select
ActiveCell.FormulaR1C1 = "1"
Range("J23790").Select
Selection.NumberFormat = "0"
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone

Range("J23790").Select
Selection.Copy
Range("D2:D23501").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With Selection.Font
.Name = "Tahoma"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With


Thank you,

Fred