Sub English_Monthly_Report_Update()
'Update English tab
If ThisWorkbook.Worksheets("Reports Data").Range("AC7") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC7").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC8") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC8").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC9") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC9").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC10") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC10").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC11") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC11").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC12") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC12").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC13") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC13").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC14") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC14").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC15") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC15").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC16") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC16").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC17") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC17").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC18") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC18").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC19") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC19").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC20") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC20").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC21") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC21").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC22") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC22").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC23") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC23").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC24") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC24").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC25") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC25").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC26") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC26").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC27") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC27").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC28") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC28").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC29") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC29").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC30") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC30").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC31") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC31").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC32") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC32").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC33") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC33").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC34") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC34").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC35") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC35").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC36") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC36").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
If ThisWorkbook.Worksheets("Reports Data").Range("AC37") <> "" Then
ThisWorkbook.Worksheets("Reports Data").Range("AC37").Copy
Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else: Workbooks("File2.xlsm").Worksheets("Eng").Range("S1").End(xlDown).Offset(1, 0).Value = ""
End If
End Sub