Excel macro felsökning
Hej
Jag håller på att försöka automatisera vissa saker i Excel, bla. inhämtade och bearbetning av data från SMHI. Jag har dock ett problem, det är att de olika dataserierna är olika långa och jag skulle behöva fixa något som kan "känna av sista raden med data" och anpassa sig efter det. Jag visar min kod ser ut nedan (Jag använde macro recorder för att skapa bulken av koden, därför det är en massa skräp-kod med.):
Jag har fetmarkerat det steg jag skulle behöva lite hjälp med. Det är alltså "rangen" C2:CX som jag inte får att fungera. Hoppas någon här kan hjälpa mig.
Sub Vintertid()
'
' Vintertid Macro
'
'
Sheets("4mån data").Select
Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D1").Select
ActiveCell.FormulaR1C1 = "Tid (Vintertid)"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+0.0416667"
Range("C2").Select
'Fylla kolumnen ner till sista värde
Selection.AutoFill Destination:=Range("C2:C1000")
Range("C:C").Select
Columns("C:C").Select
Selection.Copy
Columns("D:D").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Vintertid"
Columns("B:C").Select
Selection.Delete Shift:=xlToLeft
Range("C7").Select
Sheets("Historisk data").Select
Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+0.0416667"
Range("C2").Select
'Fylla columnen ner till sista värde
Selection.AutoFill Destination:=Range("C2:C")
Range("C:C").Select
Selection.Copy
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Vintertid"
Columns("B:C").Select
Selection.Delete Shift:=xlToLeft
Range("B2").Select
Sheets("Admin").Select
End Sub