Hi all.
Is it possible run multiple macro in one workbook?
i wish to add more sheets from original code, 6 to be exact.
i have no knowledge with macro. i try copying original code, add same code and change the sheet name and target data like input2,data2...
but to no avail. Please help and Thanks.

here's the original code. (thanks to the help of Arkadi)
Sub PW()
Dim lc As Integer
For i = 4 To 58
If Sheets("Data").Cells(i, Columns.Count).End(xlToLeft).Column + 1 > lc Then lc = Sheets("Data").Cells(i, Columns.Count).End(xlToLeft).Column + 1
Next i
    Sheets("input").Range("D4:D58").Copy Sheets("Data").Cells(4, lc)
    Sheets("input").Range("D6:D58").ClearContents
    Sheets("input").Range("D4").ClearContents
End Sub