Sub practiceVBA() theString = Cells(9, 9).Value Cells(9, 10).Value = Len(theString) For i = 1 To Len(theString) Cells(i, 12).Value = Left(theString, i) Next i theNumber = 1 For j = 1 To Len(theString) Step 2 Cells(14, j).Value = j * j Cells(theNumber, theNumber).Value = Mid(theString, theNumber, 1) theNumber = theNumber + 1 Next j Range("E3").Value = Range("F1").Value & " " & Range("G1").Value Cells(2, 5).Value = Cells(2, 6).Value + Cells(2, 7).Value + 9 + 9 + 9 End Sub