Sub conversion()
'
' conversion Macro
'
Application.ScreenUpdating = False
Sheets("Input").Select
Cells.Select
Selection.Copy
Sheets("Output").Select
Cells.Select
ActiveSheet.Paste
Columns("AD:AY").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Formulas").Select
Range("AD2:AY2").Select
Selection.Copy
Sheets("Output").Select
Range("AD2").Select
ActiveSheet.Paste
Dim LR As Long
LR = ActiveSheet.UsedRange.Rows.Count
Range("ad2:ay2").AutoFill Destination:=Range("ad2:ay" & LR)
Columns("AY:AY").ColumnWidth = 60
Cells.Select
Range("AX1").Activate
Cells.EntireRow.AutoFit
Columns("AY:AY").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("AD:AX").Select
Range("AX1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Copy
Columns("CB:CB").Select
ActiveSheet.Paste
Columns("CC:CC").Select
ActiveSheet.Paste
Columns("D:D").Select
Application.CutCopyMode = False
Selection.Copy
Columns("CD:CD").Select
ActiveSheet.Paste
Columns("H:H").Select
Application.CutCopyMode = False
Selection.Copy
Columns("CE:CE").Select
ActiveSheet.Paste
Range("CF2").Select
ActiveCell.FormulaR1C1 = _
"=IF(OR(ISBLANK(RC[-77]),RC[-77]=0),"""",ROUND(RC[-77]/0.68,2))"
Range("cf2").Copy Range("cf2", Range("cf2" & Range("d" & Rows.Count).End(xlUp).Row))
Columns("AD:AD").Select
Selection.Copy
Columns("CH:CH").Select
ActiveSheet.Paste
Range("CI2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "New"
Range("ci2").Copy Range("ci2", Range("ci2" & Range("d" & Rows.Count).End(xlUp).Row))
Range("CK2").Select
ActiveCell.FormulaR1C1 = "Yes"
Range("ck2").Copy Range("ck2", Range("ck2" & Range("d" & Rows.Count).End(xlUp).Row))
Range("CP2").Select
ActiveCell.FormulaR1C1 = "Yes"
Range("cp2").Copy Range("cp2", Range("cp2" & Range("d" & Rows.Count).End(xlUp).Row))
Range("CQ2").Select
ActiveCell.FormulaR1C1 = "No"
Range("cq2").Copy Range("cq2", Range("cq2" & Range("d" & Rows.Count).End(xlUp).Row))
Columns("BH:BH").Select
Selection.Copy
Columns("CR:CR").Select
ActiveSheet.Paste
Sheets("Formulas").Select
Range("A6:R6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Output").Select
Range("CA1").Select
ActiveSheet.Paste
Columns("CA:CR").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("A:BZ").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Cells.Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets("Start").Select
Application.ScreenUpdating = True
MsgBox "Conversion Complete!"
End Sub
Bookmarks