Put this code in Asiakkaat.xls and make sure both workbooks are opened.
Option Explicit
Sub CopyAndPrint()
Dim Wkb As Workbook
Dim WS As Worksheet
Dim TotalRows As Long
Dim i As Long
Dim StartRow As Long
Application.ScreenUpdating = False
TotalRows = Selection.Rows.Count
StartRow = Selection(1, 1).Row
Set Wkb = Workbooks("Veroinsiirto.xls")
Set WS = Wkb.Sheets("Sheet1")
For i = StartRow To StartRow + TotalRows - 1
WS.Range("B2").Value = _
ThisWorkbook.Sheets("Sheet1").Range("A1").Value
WS.Range("G10").Value = _
ThisWorkbook.Sheets("Sheet1").Range("D1").Value
WS.PrintOut Copies:=6
Next i
Wkb.Close SaveChanges:=False
Application.ScreenUpdating = True
Set WS = Nothing
Set Wkb = Nothing
End Sub