Here's part of it; I imagine you can adapt it to your own coding style and expand from German to Italian:
Code:
Set owb = ThisWorkbook
Set ows1 = owb.Worksheets(1)
Set ows2 = owb.Worksheets(2)
if ows2.Cells(2, 2).Value = "german" Then
ows1.Cells(5, 1).Value = "apple"
ows1.Cells(10, 3).Value = "fruit"
End If
Not sure what you mean by "save range", and I never print so I'll have to leave you to figure out that part.