Sub stick()Dim i As IntegerDim j As IntegerFor i = 1 To 7For