MACRO HELP

Occasional Visitor

Hi 

Please help me change my macro code so it only rows and colums with data which can differ with every excel sheet. 

 

Sub EUR()
'
' EUR Macro
'

'
Rows("1:8").Select
Range("A8").Activate
Selection.Delete Shift:=xlUp
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Delete
Range("M1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ColorIndex = 25
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "CUR"
Range("N1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ColorIndex = 25
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "EX"
Range("O1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ColorIndex = 25
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "GBP"
Range("M2").Select
ActiveCell.FormulaR1C1 = "EUR"
Selection.AutoFill Destination:=Range("M2:M92")
Range("M2:M92").Select
Range("N2").Select
ActiveCell.FormulaR1C1 = "1.1577"
Range("N2").Select
Selection.AutoFill Destination:=Range("N2:N92")
Range("N2:N92").Select
Range("O2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-8]/RC[-1]"
Range("O2").Select
Selection.AutoFill Destination:=Range("O2:O92")
Range("O2:O92").Select
ActiveWindow.SmallScroll Down:=-28
End Sub

0 Replies