Private Sub CommandButton1_Click()
'Declare variables
Dim I, LastRow, MLastRow
'Locate LastRow value
LastRow = ActiveSheet.Range("A" & Rows.count).End(xlUp).Row
For I = 2 To LastRow
If Cells(I, 1) > 0 Then
Range(Cells(I, 1), Cells(I, 30)).Select
Selection.Copy
Workbooks.Open...