Thread: [Solved] deleting blanks and commas
View Single Post
 
Old 03-06-2017, 03:52 PM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
  
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 842
NoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of light
Default
Code:
With Sheets("CCCCCCC")
    .Activate '<~~ makes sure right sheet is active
    ActiveCell.Offset(1, 0).Select  'move 1 row down, 0 columns over
    .Rows(ActiveCell.Row).Insert Shift:=xlDown
    Sheets("DATA ENTRY").Range("A3:Z3").Copy .Range("A" & ActiveCell.Row)
End With
Standing by for next revision
Reply With Quote