รบกวนช่วยแปลสูตร VBA

[steroids]

Sub Macro1()
Dim kceWB As Workbook
Dim i As Integer
Dim gFileKPI As String



For i = 2 To 50
If Worksheets("File_KPI").Range("A" & i).Value = "" Then
Exit For
Else
Range("K11:K16").Select
Selection.Copy
gFileKPI = Worksheets("File_KPI").Range("A" & i).Value
Set kceWB = Workbooks.Open(gFileKPI)
Range("K11").Select
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("K11:K16")
kceWB.Save
kceWB.Close
End If
Next i


End Sub

จากสูตรข้างต้น รบกวนช่วยแปลโคดแบบคร่าวๆในแต่ละส่วนได้ไหมครับ เข้าใจแค่บางส่วนครับ
ขอบคุณครับ

[logic]

เอาเป็นว่าไม่เข้าใจส่วนไหนบ้างดีกว่า เพื่อน ๆ พอจะแนะนำให้ได้บ้าง

วิธีการแนบ Code ครับ viewtopic.php?f=6&t=1187