Application.ScreenUpdating = False 
Sheets("Output Tracker").Select 
Range("B17").Select 
Selection.Copy 
Sheets("HTB").Select 
ActiveSheet.ChartObjects("Chart 1").Activate 
ActiveWindow.Visible = False 
Windows("S15 Load Capacity Master.xls").Activate 
If Sheets("HTB").Range("B6").Value <> "" Then 
Sheets("HTB").Range("B2:B6").ClearContents 
Else 
For i = 2 To 6 
If Sheets("HTB").Range("B" & i).Value = "" Then 
Sheets("HTB").Range("B" & i).Select 
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
False, Transpose:=False 
Application.CutCopyMode = False 
Selection.NumberFormat = "0.00%" 
Exit For 
End If 
Next i 
End If 
ChDir "H:\" 
Workbooks.OpenText Filename:="H:\S15.XLS", Origin:=xlWindows, StartRow:= _ 
1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ 
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ 
, Space:=False, Other:=False, FieldInfo:=Array(1, 1) 
Cells.Select 
Selection.Copy 
Windows("S15 Load Capacity Master.xls").Activate 
Sheets("MCPB").Select 
Cells.Select 
ActiveSheet.Paste 
Range("C7").Select 
Application.CutCopyMode = False 
ActiveCell.FormulaR1C1 = "=-2.9+MID(RC[-1],5,8)" 
ActiveCell.FormulaR1C1 = "=-2.9+MID(RC[-1],5,8)" 
Selection.ClearContents 
Range("C7").Select 
ActiveCell.FormulaR1C1 = "=MID(RC[-1],5,8)" 
Selection.AutoFill Destination:=Range("C7:C6555"), Type:=xlFillDefault 
Range("C7:C6555").Select 
Sheets("Output Tracker").Select 
Windows("s15.xls").Activate 
ActiveWorkbook.Close 
Application.ScreenUpdating = True 
End Sub


sussed out how to stop writing in two lots on a monday..............

but now after clearcontents it dosent paste into B2 like it shud you have to rerun macro

any help would be internally gratefull

Regards

Merc