Private Sub mySub()
Dim row As Integer, col As Integer
row = 1
col = 1
Dim tmp As Integer
Dim i As Integer
Dim delcol As Integer
delcol = 1
For i = 0 To 1
tmp = CInt(Sheet1.Cells(row, col).Value)
While Sheet1.Cells(row, col).Value <> ""
If tmp > CInt(Sheet1.Cells(row, col).Value) Then
tmp = CInt(Sheet1.Cells(row, col).Value)
delcol = col
End If
col = col + 1
Wend
Sheet1.Columns(delcol).Delete
Next
col = 1
Dim sum As Integer
sum = 0
Dim avg As Double
avg = 0
While Sheet1.Cells(row, col).Value <> ""
sum = sum + Sheet1.Cells(row, col).Value
col = col + 1
Wend
avg = sum / col
Sheet1.Cells(row, col).Value = avg
End Sub