Sub Send_Image_To_WhatsApp()

    Dim whatsapp_number As String
    Dim sh As Worksheet
    Dim tsh As Worksheet
    Dim i As Integer

    Set sh = ThisWorkbook.Sheets("Data")
    Set tsh = ThisWorkbook.Sheets("Template")

    For i = 4 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row
        If sh.Range("AJ" & i).Value <> "Yes" Then 'check skip
            whatsapp_number = sh.Range("AI" & i).Value

            ' Filling the template
            tsh.Range("I10").Value = sh.Range("A" & i).Value
            tsh.Range("F9").Value = sh.Range("B" & i).Value
            tsh.Range("B9").Value = sh.Range("C" & i).Value
            tsh.Range("F10").Value = sh.Range("D" & i).Value
            tsh.Range("H12").Value = sh.Range("E" & i).Value
            tsh.Range("E12").Value = sh.Range("F" & i).Value
            tsh.Range("B12").Value = sh.Range("G" & i).Value
            tsh.Range("H13").Value = sh.Range("H" & i).Value
            tsh.Range("E13").Value = sh.Range("I" & i).Value
            tsh.Range("B13").Value = sh.Range("J" & i).Value
            tsh.Range("H14").Value = sh.Range("K" & i).Value
            tsh.Range("E14").Value = sh.Range("L" & i).Value
            tsh.Range("B14").Value = sh.Range("M" & i).Value
            tsh.Range("H15").Value = sh.Range("N" & i).Value
            tsh.Range("E15").Value = sh.Range("O" & i).Value
            tsh.Range("B15").Value = sh.Range("P" & i).Value
            tsh.Range("H16").Value = sh.Range("Q" & i).Value
            tsh.Range("E16").Value = sh.Range("R" & i).Value
            tsh.Range("B16").Value = sh.Range("S" & i).Value
            tsh.Range("H17").Value = sh.Range("T" & i).Value
            tsh.Range("E17").Value = sh.Range("U" & i).Value
            tsh.Range("B17").Value = sh.Range("V" & i).Value
            tsh.Range("H19").Value = sh.Range("W" & i).Value
            tsh.Range("E19").Value = sh.Range("X" & i).Value
            tsh.Range("B19").Value = sh.Range("Y" & i).Value
            tsh.Range("H20").Value = sh.Range("Z" & i).Value
            tsh.Range("E20").Value = sh.Range("AA" & i).Value
            tsh.Range("B20").Value = sh.Range("AB" & i).Value
            tsh.Range("H21").Value = sh.Range("AC" & i).Value
            tsh.Range("E21").Value = sh.Range("AD" & i).Value
            tsh.Range("B21").Value = sh.Range("AE" & i).Value
            tsh.Range("G24").Value = sh.Range("AF" & i).Value
            tsh.Range("I18").Value = sh.Range("AG" & i).Value

            ThisWorkbook.FollowHyperlink "https://web.whatsapp.com/send?phone=%2B" & whatsapp_number & "&text=&app_absent=1&send=1"
            Application.Wait (Now() + TimeValue("00:00:03"))

            tsh.Range("B2:J28").CopyPicture , xlBitmap
            Application.Wait (Now() + TimeValue("00:00:02"))

            VBA.SendKeys ("^v")
            Application.Wait (Now() + TimeValue("00:00:02"))

            VBA.SendKeys "~", True
            Application.Wait (Now() + TimeValue("00:00:02"))
        End If
    Next i

    tsh.Range("B2:J26").ClearContents

    MsgBox "Process Completed", vbInformation
End Sub